- ©«¤l
- 52
- ¥DÃD
- 13
- ºëµØ
- 0
- ¿n¤À
- 119
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-6
- ³Ì«áµn¿ý
- 2022-6-7
|
WORD·Ó¤ù©ñ¤jVBAקï
½Ð°ÝWORD ªí®æùئ³®Ö¨ú¤è¶ô¡B´¡¤J·Ó¤ù«á·Q¥ÎVBA ±N·Ó¤ù©ñ¤j¡A¦ý¥H¤Uµ{¦¡½X®Ö¨ú¤è¶ô¤]©ñ¤j¡An¦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 |
|