請問WORD 表格裏有核取方塊、插入照片後想用VBA 將照片放大，但以下程式碼核取方塊也放大，要如何修改才能只放大照片呢?
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 時間: 2019-5-18 22:55
