我想实现这样的功能，把EXCEL里图片高度及边距与图片所在单元格统一。
Option Explicit

Private Sub Command1_Click()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
    shp.Height = shp.TopLeftCell.Height
    shp.Left = shp.TopLeftCell.Left
    shp.Top = shp.TopLeftCell.Top
Next shp
End Sub

Private Sub Form_Load()
Dim XlApp As New Excel.Application    '使用 Excel 对象删除指定行
Dim XlBook As New Excel.Workbook
Dim XlSheet As New Excel.Worksheet


Set XlApp = CreateObject("Excel.Application") '创建EXCEL对象
XlApp.Visible = True
XlApp.Caption = "应用程序调用 Microsoft Excel"

Set XlBook = XlApp.Workbooks.Open(App.Path & "\7-21 统一图片高度及边距.xlsm")
Set XlSheet = XlBook.Worksheets(1)
End Sub
以上是代码。
请问高手，应该如何解决呀？谢谢！

这是EXCEL图片