³Â»¶®a±Ú°Q½×ª©ª©'s Archiver

y663258 µoªí©ó 2019-4-18 10:22

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

½Ð°Ý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

ggeess µoªí©ó 2019-5-18 22:55

®Ö¨ú¤è¶ô¤]©ñ¤j¡A¬O¤£¬O¸Ó"®Ö¨ú¤è¶ô"¤£¬O"¯uªº®Ö¨ú¤è¶ô"
¦Ó¤]¬O¤@±i¹Ï¡C
¦pªG¬O³o¼Ë¡A¨º"¯uªº®Ö¨ú¤è¶ô"¦b"¶}µo¤H­û"¿ï³æªº"±±¨î¶µ"¸Ì¡C
"¯uªº®Ö¨ú¤è¶ô"´N¤£·|¤]¸òµÛ©ñ¤j¡C

­¶: [1]

³Â»¶®a±Ú°Q½×ª©ª©¬° ³Â»¶¾Ç¶é ºô¯¸¦¨­û  ¥Ñ ¬R±o¸ê°T¤u§@«Ç © Since 1993 ©Ò´£¨Ñ