2010.08.22笨巧果动画设计

QUOTE:

Sub 修改对象名()
On Error GoTo err
ActiveWindow.Selection.ShapeRange.Name = InputBox("将对象名称修改为：")
Exit Sub
err:
MsgBox "操作错误。你需要选中一个对象。"
End Sub

QUOTE:

Private Sub 校时_Click()
Call RotateObj("时针", 30 * Hour(Now) + Minute(Now) / 2 + Second(Now) / 120)
Call RotateObj("分针", 6 * Minute(Now) + Second(Now) / 10)
Call RotateObj("秒针", 6 * Second(Now))
End Sub

QUOTE:

Sub RotateObj(shpname As String, i As Double)
Dim oshp As Shape
Dim show As SlideShowWindow
Set show = ActivePresentation.SlideShowWindow
ActivePresentation.Slides(1).Shapes(shpname).Rotation = i
End Sub