Wang palavra lote modificar o tamanho da imagem

Wang palavra lote modificar o tamanho da imagem

 

Sub tamanho de lote de imagem () 
Dim Isha de Como o InlineShape 
a para cada Isha ActiveDocument.InlineShapes o Na 
a Se = wdInlineShapePicture o iSha.Type Em seguida, 
a relação de aspecto 'iSha.LockAspectRatio = msoFalse' não está bloqueado 
iSha.LockAspectRatio = msoTrue 'Fixar proporção 
iSha.Width = CentimetersToPoints ( 30) 'largamente o CM 
' iSha.Height = CentimetersToPoints (21 é) "alta o CM 
Fim do Caso 
o Próximo 
End Sub