返回列表下一主題上一主題發帖

無法正常抓取Shape內的TextFrame2.TextRange.Font

clio

中學生 Rank: 2

帖子: 132
主題: 31
精華: 0
積分: 167
點名: 0
作業系統: XP
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: Taipei
註冊時間: 2011-4-14
最後登錄: 2024-2-28

2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 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

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

樓主熱帖

clio

靜思自在 : 一句溫暖的話，就像往別人身上灑香水，自己會沾到兩三滴。

返回列表下一主題上一主題