需要直接通過編程來實作
f pptdocument.Slides(1).Shapes.Count = 1 Then
If pptdocument.Slides(1).Shapes(1).TextFrame.TextRange = "Microsoft Office圖書策劃案" Then
right_info_ppt = right_info_ppt + "第1張幻燈片標題得分：1分" + Chr(10)
pptzf = pptzf + 1
Else
error_info_ppt = error_info_ppt + "第1張幻燈片標題得分：0分" + Chr(10)
End If
這樣之類的
uj5u.com熱心網友回復：
求助啊大神們，表單怎么呼叫模塊中的內容啊，不是定義的變數，是一段程式。uj5u.com熱心網友回復：
在PowerPoint2003中開始記錄宏，手動完成所需功能，結束記錄宏，按Alt+F11鍵，查看剛才記錄的宏對應的VBA代碼。uj5u.com熱心網友回復：
哈哈，我這幾天正在做樓主所說的這個東西。。。用VBA來寫針對特定題目的評分程式，應該說是沒有什么問題，但如果要寫一個“通用”的、能夠適應任何PPT操作題的評分程式，就有點麻煩了！
uj5u.com熱心網友回復：
PowerPoint操作題如下：-----------------------------------
1. 將幻燈片大小設定為35毫米幻燈片；
2. 將第一張幻燈片版式改為“標題幻燈片”，并設定幻燈片放映方式為“回圈放映，按ESC鍵終止”；
3. 設定所有幻燈片背景為“畫布”紋理，所有幻燈片切換效果為溶解；
4 .為第三張幻燈片中帶專案符號的文字創建超鏈接，分別指向具有相應標題的幻燈片；
5.在最后一張幻燈片文字下方插入圖片jin.jpg，設定圖片高度、寬度縮放比例均為50%，圖片進入的影片效果為旋轉，在上一影片之后延遲1秒發生；
uj5u.com熱心網友回復：
百度搜“職稱計算機考試寶典保過版(PowerPoint 2003)1.0綠色破解版”uj5u.com熱心網友回復：
沒理解，PPT為啥限定得那么死。硬要把一種靠創意想法來吸引人的東西搞成標準化的考試評分。基本上，目前我看到的能吸引人的PPT關鍵都是圖片。妹子們弄得好看都是去下載現成模板。總之主要靠美工。其他搞花頭的東西都讓人厭煩。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/46880.html
標籤：VBA