Sub ls()
  Dim pointsToTwips
  With Sheet1.ShockwaveFlash1
    
    .LoadMovie 0, "test.Swf"
    Call Me.ShockwaveFlash1.TGotoFrame("_root.mc ", 15)
    Call Me.ShockwaveFlash1.TStopPlay("_root.mc")
    .TCallLabel "_root", "aa1"
  End With
End Sub这段程序如果不安装下面控件,程序不通过.安装则通过.http://www.onlinedown.net/softdown/29667_2.htm
Flash控件安装程序 1.7问:
TGotoFrame,TStopPlay,TCallLabel 必须要安装Flash控件安装程序吗??