Office中国论坛/Access中国论坛

标题: 一个简单的动态摄影 [打印本页]

作者: joyark 时间: 2011-8-10 03:29
标题: 一个简单的动态摄影
本帖最后由 joyark 于 2011-8-10 03:31 编辑

一个简单的动态摄影
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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)