求教使用vba做一个ppt效果
试试下面的代码,操作PPT的:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$C$4" Then
ActiveWindow.FreezePanes = False
ActiveWindow.SmallScroll Down:=42
Range("B45").Select
ActiveWindow.FreezePanes = True
End If
End Sub