返回列表下一主題上一主題發帖

WORD照片放大VBA修改

y663258

中學生 Rank: 2

帖子: 52
主題: 13
精華: 0
積分: 119
點名: 0
作業系統: xp
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-5-6
最後登錄: 2022-6-7

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2019-4-18 10:22 | 只看該作者

WORD照片放大VBA修改

請問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