WORD·Ó¤ù©ñ¤jVBA­×§ï

y663258

½Ð°ÝWORD ªí®æùئ³®Ö¨ú¤è¶ô¡B´¡¤J·Ó¤ù«á·Q¥ÎVBA ±N·Ó¤ù©ñ¤j¡A¦ý¥H¤Uµ{¦¡½X®Ö¨ú¤è¶ô¤]©ñ¤j¡A­n¦p¦ó­×§ï¤~¯à¥u©ñ¤j·Ó¤ù©O?
Sub A2()
    Dim picWidth As Integer
    Dim picHeight As Integer
    Dim oIshp As InlineShape
    With ActiveDocument.InlineShapes
    picHeight = 11.21 * 28.32
    picWidth = 17.42 * 28.32
    For Each oIshp In ActiveDocument.InlineShapes
        With oIshp
            .LockAspectRatio = msoFalse
            .Height = picHeight
            .Width = picWidth
        End With
    Next oIshp
     End With
End Sub