还请老师指点一二
ãã1ãå¯å¨PowerPoint 2013并æå¼æ¼ç¤ºæ稿ï¼è¯¥æ¼ç¤ºæ稿已ç»å®æäºæ é¢é¡µçå¶ä½åé¢ç®çæ·»å ã使ç¨æå·§429ä»ç»çæ¹æ³å¨å¹»ç¯çä¸æ·»å ä¸ä¸ªæé®æ§ä»¶ï¼å¹¶å¨âå±æ§âé¢æ¿ä¸æ´æ¹æ§ä»¶çâCaptionâå±æ§å¼ã
ãã2ãå³å»å¹»ç¯çä¸çæé®æ§ä»¶ï¼éæ©å¿«æ·èåä¸çâæ¥ç代ç âå½ä»¤ï¼å¨æå¼çVisual Basicç¼è¾å¨ç代ç çªå£ä¸è¾å ¥ç¨åºä»£ç ãå ·ä½çç¨åºä»£ç å¦ä¸ã
ãã01 Private Sub CommandButton1_Click()
ãã02 Dim i As Integer,n As Integer'å®ä¹åé
ãã03 i=Int((6*Rnd)+1)'è·å1ï½6é´çéæºæ°
ãã04 Randomize'åå§åéæºæ°
ãã05 i=Int((6*Rnd)+1)'åå§ååå次çæ1ï½6é´çéæºæ°
ãã06 n=i+1'ååénèµå¼ï¼è¯¥å¼ä¸ºå¹»ç¯ççç¼å·
ãã07 With SlideShowWindows(1)
ãã08.View.GotoSlide n'跳转å°æå®ç¼å·çå¹»ç¯ç
ãã09 End With
ãã10 End Sub
ãã3ãå¤å¶æ é¢é¡µä¸çæé®ï¼å°å ¶ç²è´´å°ç¬¬äºå¼ å¹»ç¯çä¸ï¼ç¶åå¨âå±æ§âé¢æ¿ä¸æ´æ¹æ§ä»¶çâCaptionâå±æ§å¼ã
ãã4ãå³å»å¹»ç¯çä¸çæé®æ§ä»¶ï¼éæ©å¿«æ·èåä¸çéæ©âæ¥ç代ç âå½ä»¤ãå¨æå¼çVisual Basicç¼è¾å¨ç代ç çªå£ä¸ä¸ºæé®æ·»å Clickäºä»¶ååºç¨åºãå ·ä½çç¨åºä»£ç å¦ä¸ã
ãã01 Private Sub CommandButton1_Click()
ãã02 With SlideShowWindows(1)
ãã03 .View.GotoSlide 1'跳转å°ç¬¬ä¸å¼ å¹»ç¯ç
ãã04 End With
ãã05 End Sub
ãã5ãå°ç¬¬äºå¼ å¹»ç¯çä¸çæé®å¤å¶å°å ¶åçå¹»ç¯çä¸ï¼ä½¿ç¨ä¸æ¥éª¤â£ç¸åçæ¹æ³ä¸ºè¿äºæé®æ·»å äºä»¶ååºç¨åºåï¼æâF5âé®ææ¾å¹»ç¯çï¼å¨æ é¢é¡µä¸åå»âåºé¢âæé®ï¼PowerPointå°éæºè·³è½¬å°å ¶åçä¸å¼ å¹»ç¯çæ¾ç¤ºé¢ç®;åå»é¢ç®é¡µä¸çâåå°é¦é¡µâæé®ï¼å¦å¾6æ示ï¼å°è·³è½¬ååºé¢é¡µã
ããå¸æéè¿ä»¥ä¸æ¹æ³æ¥éª¤å¤§å®¶å¯ä»¥å¦ä¼å¶ä½éæºææ¾PPTå¹»ç¯ççæ¹æ³ã
ãã2ãå³å»å¹»ç¯çä¸çæé®æ§ä»¶ï¼éæ©å¿«æ·èåä¸çâæ¥ç代ç âå½ä»¤ï¼å¨æå¼çVisual Basicç¼è¾å¨ç代ç çªå£ä¸è¾å ¥ç¨åºä»£ç ãå ·ä½çç¨åºä»£ç å¦ä¸ã
ãã01 Private Sub CommandButton1_Click()
ãã02 Dim i As Integer,n As Integer'å®ä¹åé
ãã03 i=Int((6*Rnd)+1)'è·å1ï½6é´çéæºæ°
ãã04 Randomize'åå§åéæºæ°
ãã05 i=Int((6*Rnd)+1)'åå§ååå次çæ1ï½6é´çéæºæ°
ãã06 n=i+1'ååénèµå¼ï¼è¯¥å¼ä¸ºå¹»ç¯ççç¼å·
ãã07 With SlideShowWindows(1)
ãã08.View.GotoSlide n'跳转å°æå®ç¼å·çå¹»ç¯ç
ãã09 End With
ãã10 End Sub
ãã3ãå¤å¶æ é¢é¡µä¸çæé®ï¼å°å ¶ç²è´´å°ç¬¬äºå¼ å¹»ç¯çä¸ï¼ç¶åå¨âå±æ§âé¢æ¿ä¸æ´æ¹æ§ä»¶çâCaptionâå±æ§å¼ã
ãã4ãå³å»å¹»ç¯çä¸çæé®æ§ä»¶ï¼éæ©å¿«æ·èåä¸çéæ©âæ¥ç代ç âå½ä»¤ãå¨æå¼çVisual Basicç¼è¾å¨ç代ç çªå£ä¸ä¸ºæé®æ·»å Clickäºä»¶ååºç¨åºãå ·ä½çç¨åºä»£ç å¦ä¸ã
ãã01 Private Sub CommandButton1_Click()
ãã02 With SlideShowWindows(1)
ãã03 .View.GotoSlide 1'跳转å°ç¬¬ä¸å¼ å¹»ç¯ç
ãã04 End With
ãã05 End Sub
ãã5ãå°ç¬¬äºå¼ å¹»ç¯çä¸çæé®å¤å¶å°å ¶åçå¹»ç¯çä¸ï¼ä½¿ç¨ä¸æ¥éª¤â£ç¸åçæ¹æ³ä¸ºè¿äºæé®æ·»å äºä»¶ååºç¨åºåï¼æâF5âé®ææ¾å¹»ç¯çï¼å¨æ é¢é¡µä¸åå»âåºé¢âæé®ï¼PowerPointå°éæºè·³è½¬å°å ¶åçä¸å¼ å¹»ç¯çæ¾ç¤ºé¢ç®;åå»é¢ç®é¡µä¸çâåå°é¦é¡µâæé®ï¼å¦å¾6æ示ï¼å°è·³è½¬ååºé¢é¡µã
ããå¸æéè¿ä»¥ä¸æ¹æ³æ¥éª¤å¤§å®¶å¯ä»¥å¦ä¼å¶ä½éæºææ¾PPTå¹»ç¯ççæ¹æ³ã
温馨提示:答案为网友推荐,仅供参考
第1个回答 2018-04-08
随机播放需要 VBA支持 百度有源码 如果没有什么了解 不推荐
用电子相册做成GIF 或者是别的格式插入吧本回答被提问者和网友采纳
用电子相册做成GIF 或者是别的格式插入吧本回答被提问者和网友采纳