標題: 無法正常抓取Shape內的TextFrame2.TextRange.Font [打印本頁]

---

作者: clio    時間: 2017-2-14 10:31     標題: 無法正常抓取Shape內的TextFrame2.TextRange.Font

各位大大：
小的想用程式來修改Excel裡面存在的圖表裡面哢現的文件，但是遇到一些困難，程式如下

Sub Change_Shapes_Font()

    Dim aShape As Shape
   
    For i = 1 To ActiveSheet.Shapes.Count
   
        Set aShape = ActiveSheet.Shapes(i)
        
'下列一行出現問題，會顯示超出抓取範圍，但是查了很多資料，應該是可以這樣抓資料，不知道錯誤在那邊能否有高手幫我解答
        With aShape.TextFrame2.TextRange.Font
            .NameComplexScript = "標楷體"
            .NameFarEast = "標楷體"
            .Name = "標楷體"
        End With
   
    Next i
   
    Set aShape = Nothing
   
End Sub

卡在標示的那一行，無法抓取，還請知道我錯誤地方的高手給予幫忙，感謝您

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)