还可以更简单:
Private Sub Workbook_Open()
Sheets(1).Shapes(1).Select
With Selection
.Placement = xlMoveAndSize
.PrintObject = True
End With
With Selection.ShapeRange
.LockAspectRatio = msoFalse
.Left = Sheets(1).Range("A1").Left
.Top = Sheets(1).Range("A1").Top
.Width = Sheets(1).Range("A1").Width
.Height = Sheets(1).Range("A1").Height
End With
End Sub
Private Sub Workbook_Open()
Sheets(1).Shapes(1).Select
With Selection.ShapeRange
.LockAspectRatio = msoFalse
.Left = Sheets(1).Range("A1").Left
.Top = Sheets(1).Range("A1").Top
.Width = Sheets(1).Range("A1").Width
.Height = Sheets(1).Range("A1").Height
End With
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Sheets(1).Shapes(1).Select
With Selection.ShapeRange
.LockAspectRatio = msoFalse
.Left = Sheets(1).Range("A1").Left
.Top = Sheets(1).Range("A1").Top
.Width = Sheets(1).Range("A1").Width
.Height = Sheets(1).Range("A1").Height
End With
End Sub