第一次遇見無法賦值的奇怪情況，該情況只發生在特定屬性，在此求助，并供大家研討。
————————————————————————分割線————————————————————————
我們先看一組常規情況：
Sub Test1()
A = 1
MsgBox A
End Sub
提示框彈出的內容是什么？對，1，沒錯，太簡單了
————————————————————————分割線————————————————————————
現在看下一組，我們新建一個PPT，在第1頁里，把所有東西都刪了，然后插入一個文本框（系統自動認為這個文本框叫Shapes(1)），在里面隨便寫點什么東西，按ALT+F11。
Sub Test2()
With ActivePresentation.Slides(1).Shapes(1).TextFrame2.TextRange.Font
With .Line
.ForeColor.RGB = RGB(250, 0, 0)
.Weight = 1
MsgBox .ForeColor.RGB
MsgBox .Weight
End With
End With
End Sub
這時提示框彈出的內容是啥？并沒有什么例外，和你想的一樣，第一次彈出250，第二次彈出1，而且我們看到，文本框里的字被描了個邊。
（注：為啥我要用兩個with？是想讓各位看得清楚些，有利于做對比，后面會用到）
————————————————————————分割線————————————————————————
再來一組，在剛才的PPT里，插入一張表（系統自動認為這個文本框叫Shapes(2)），在第一個單元格cell(1,1)里隨便寫點什么東西，按ALT+F11。
Sub Test3()
With ActivePresentation.Slides(1).Shapes(2).Table.Cell(1, 1).Shape.TextFrame2.TextRange.Font
With .Fill
.ForeColor.RGB = RGB(0, 0, 0)
MsgBox .ForeColor.RGB
End With
End With
End Sub
還是正常的，提示框彈出0，單元格cell(1,1)里的字變成黑色。
————————————————————————分割線————————————————————————
下面開始第4組：
Sub Test4()
With ActivePresentation.Slides(1).Shapes(2).Table.Cell(1, 1).Shape.TextFrame2.TextRange.Font
With .Line
.ForeColor.RGB = RGB(250, 0, 0)
.Weight = 6
MsgBox .ForeColor.RGB
MsgBox .Weight
End With
End With
End Sub
現在彈出的提示框是啥？分別彈出兩次莫明其妙的數，反正不是我們剛才賦值的250和6，這是什么鬼啊？而且，單元格cell(1,1)里的字沒有任何變化。
—————————————————————最后的分割線—————————————————————
之所以列這么多組，是想表明代碼的格式沒有問題，沒有錯誤提示，然而卻出現了第4組賦值不能生效的情況，無法理解，供各位研討。
求解釋！求解釋！求解釋！
uj5u.com熱心網友回復：
補充：這種情況只針對【表格里的字】的【line方法】出現，其他測驗都沒有問題uj5u.com熱心網友回復：
With陳述句塊不要嵌套With陳述句塊不要嵌套
With陳述句塊不要嵌套
uj5u.com熱心網友回復：
這有什么好奇怪的，那是因為“表格中的文字” 不支持設定“描邊”吧！
這些“物件”都相當于“控制元件”，它的哪些屬性允許你修改、哪些屬性不允許你修改， 是它說了算…………
uj5u.com熱心網友回復：
兩個with只是讓大伙看得清晰一些，弄成一個with結果也是一樣，在文中括號已經說了-__-
而且，其他SUB里的兩層嵌套也沒有問題。
uj5u.com熱心網友回復：
表格中的物件支持描邊！在PPT中直接操作，沒有問題，你可以試試。
如果直接操作能夠實作，那么，實作這個操作的代碼是什么？
uj5u.com熱心網友回復：
你能把表格中的文字設定上“描邊”的？
uj5u.com熱心網友回復：
好吧，發現還真可以手工設定。但目前你發出來的那種代碼卻“無效”。
一直沒玩過PPT，不清楚是怎么回事， 等會兒有空看看…………
uj5u.com熱心網友回復：
多謝！辛苦大佬。
uj5u.com熱心網友回復：
查不到。
找不到其它“相關”的屬性、成員。
感覺PPT的VBA還真只是個半成品……
手里沒有這方面的資料，又無法“錄制宏”。
uj5u.com熱心網友回復：
uj5u.com熱心網友回復：
"描邊"能錄個宏看到代碼么?
uj5u.com熱心網友回復：
呵呵，你可以試一下能不能“錄制宏”啊……
你也可以看看別人的討論啊（我在9樓的回復）。
uj5u.com熱心網友回復：
VBA for PPT不是要被.NET for PPT代替了嗎？uj5u.com熱心網友回復：
有時間表嗎？
目前還需要用VBA干活 T.T
uj5u.com熱心網友回復：
PPT里不能，我在WORD里試了一下（WORD能錄宏），然而關于 “描邊” 這個操作，什么也沒錄出來，是一片空白。
感覺OFFICE的運行機制很奇怪。
uj5u.com熱心網友回復：
通讀MSDN在線檔案中PowerPoint開發相關章節。uj5u.com熱心網友回復：
已經確認，在ppt 2016中無法實作表格中文字描邊.因此樓主你可能遇到了一個假操作bug而不是vba的問題。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/50022.html
標籤：VBA