一个简单的动态摄影

joyark

一个简单的动态摄影
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Application.EnableEvents = False
Application.ScreenUpdating = False
Shapes("Shape_矩形").Select
Selection.Formula = "=" & Target.Address(0, 0)
Selection.Top = Target.Top
Selection.Left = Target(Target.Cells.Count).Offset(, 3).Left 'Target(Target.Cells.Count) Target区域的最后的单元格
Selection.Width = Target.Width * 1.2
Selection.Height = Target.Height * 1.2
Target.Activate
Application.EnableEvents = True
Application.ScreenUpdating = True

End Sub