我根据网上的方法做好后,可是flash始终无法播放。到底是WPS有问题,还是方法不对?如果有大虾知道请告诉详细的方法,最好图文并茂,或者给我视频最好。(vba已经安装,控件工具箱可以正常使用,movie路径正确。用ie可以正常播放flash。)
ææ¾æ§å¶å ·ä½å®ç°æ¥éª¤ï¼
1ãå¯å¨wpsæ¼ç¤º2010ï¼ä¾æ¬¡åå»å¨âæå ¥â-âFlashï¼Fï¼â¦âå½ä»¤ï¼å¨å¼¹åºçâæå ¥Flashå¨ç»â对è¯æ¡ä¸ï¼éæ©éè¦çæ件ï¼åå»âæå¼âå½ä»¤æé®ï¼åå°æä½é¡µé¢ãå³å»Flashå¨ç»å¯¹è±¡ï¼ä¿®æ¹ï¼å称ï¼å±æ§ä¸ºswfã
2ãä¾æ¬¡åå»âæå
¥âââå¾çâââæ¥èªæ件âï¼æå¼âæå
¥å¾çâ对è¯æ¡ï¼éä¸éè¦çå¾çï¼åå»âæå¼âæé®å®æå¾çæå
¥ãæ¤æ¶å¾çå³ä¾§åºç°âå¾çâå·¥å
·æ ï¼åå»å
¶ä¸ç¬¬7个âè£åªâæé®ï¼å¯¹å¾çè¿è¡éå½è£åªéåºçªå£ãéä¸æå
¥çFlashå¨ç»å¯¹è±¡ï¼å°é¼ æ 移å°å¨å´æ§å¶ç¹ä¸ï¼å·¦é®æå¨ï¼è°æ´å¤§å°åä½ç½®éå½è£åªéåºææ¾çªå£ã
3ãå¨âæ§ä»¶å·¥å
·ç®±âåå»âå½ä»¤æé®âï¼å¨âshockwave flash
objectâæ§ä»¶ä¸å·¦é®æä½æåºä¸ä¸ªå½ä»¤æé®ï¼ç¶åæä½ç»åé®CTRLåå³æåºäºä¸ªåæ ·çå½ä»¤æé®ã
å³å»ç¬¬ä¸ä¸ªæé®ï¼ä»å¼¹åºèåä¸åå»âå±æ§âï¼æå¼âå±æ§â对è¯æ¡ï¼ä¿®æ¹âCaptionâå±æ§ä¸ºâææ¾âï¼åçä¾æ¬¡éä¸å ¶ä½æé®ï¼åå«æâCaptionâå±æ§ä¿®æ¹ä¸ºâæåâãâæåâãâæåâãå¿«è¿âãâå¿«éâï¼å ³éâå±æ§â对è¯æ¡ã
4ãæç»åé®ALT+F11ï¼è¿å ¥ä»£ç ç¼è¾çªå£ï¼åå»â对象âå³ä¾§çä¸ææé®ï¼éæ©âCommandButton1â项ï¼é»è®¤æ¯Clickäºä»¶ï¼
å¨ä»£ç 对è¯æ¡çPrivate Sub CommandButton1_Click()åEnd Subä¹é´è¾å
¥å¦ä¸ä»£ç ï¼ Swf.Playing =
True
åå»â对象âå³ä¾§çä¸ææé®ï¼éæ©âCommandButton2â项ï¼å¨ä¸¤å¥ä»£ç ä¹é´è¾å ¥å¦ä¸ä»£ç ï¼
Swf.Playing = False
åå»â对象âå³ä¾§çä¸ææé®ï¼éæ©âCommandButton3â项ï¼å¨ä¸¤å¥ä»£ç ä¹é´è¾å ¥å¦ä¸ä»£ç ï¼
Swf.FrameNum = 1
Swf.Playing = True
åå»â对象âå³ä¾§çä¸ææé®ï¼éæ©âCommandButton4â项ï¼å¨ä¸¤å¥ä»£ç ä¹é´è¾å ¥å¦ä¸ä»£ç ï¼
Swf.FrameNum = Swf.TotalFrames
Swf.Playing = False
åå»â对象âå³ä¾§çä¸ææé®ï¼éæ©âCommandButton5â项ï¼å¨ä¸¤å¥ä»£ç ä¹é´è¾å
¥å¦ä¸ä»£ç ï¼
Swf.FrameNum =
Swf.FrameNum+50
Swf.Playing = True
åå»â对象âå³ä¾§çä¸ææé®ï¼éæ©âCommandButton6â项ï¼å¨ä¸¤å¥ä»£ç ä¹é´è¾å ¥å¦ä¸ä»£ç ï¼
Swf.FrameNum = Swf.FrameNum -50
Swf.Playing = True
æé®çåè½é®F5ï¼è§çæ¾æ ï¼æ»¡æåä¿åã
注æï¼
â WPSç个人ç¨æ·éè¦æVBAç¯å¢ï¼è®¾ç½®å®å®å
¨æ§ä¸å®å
¨çº§ä¸ºä½æä¸ï¼ç
§æ¤å®æ½ä»£ç æä¼èµ·ä½ç¨ã
â¡éæ°æå¼wpsæ¼ç¤ºæ¶ï¼åºç°âå®å
¨è¦åâæ示çªå£ï¼ç¹å»âå¯ç¨å®âå½ä»¤æé®ï¼æè½å®ç°åå§å代ç çç®æ ã