ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

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

TOP

        ÀR«ä¦Û¦b : ·O´d¨S¦³¼Ä¤H¡A´¼¼z¤£°_·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD