Wang palabra lotes modificar el tamaño de la imagen

Wang palabra lotes modificar el tamaño de la imagen

 

Sub tamaño de la imagen de proceso por lotes () 
Dim Isha de Como el InlineShape 
el Para Cada Isha ActiveDocument.InlineShapes el En 
el Si = wdInlineShapePicture la iSha.Type Entonces 
relación de aspecto 'iSha.LockAspectRatio = msoFalse' no está bloqueado 
iSha.LockAspectRatio = msoTrue 'relación de aspecto Lock 
iSha.Width = CentimetersToPoints ( 30) 'amplia el CM 
' = iSha.Height CentimetersToPoints (21 es) "alto el CM 
Fin del Si 
el siguiente 
End Sub