WORD照片放大VBA修改

y663258

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

核取方塊也放大，是不是該"核取方塊"不是"真的核取方塊"
而也是一張圖。
如果是這樣，那"真的核取方塊"在"開發人員"選單的"控制項"裡。
"真的核取方塊"就不會也跟著放大。