無法正常抓取Shape內的TextFrame2.TextRange.Font
- 帖子
- 132
- 主題
- 31
- 精華
- 0
- 積分
- 167
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- Office 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Taipei
- 註冊時間
- 2011-4-14
- 最後登錄
- 2024-2-28
  
|
無法正常抓取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
|
|
|
|
|
發表於 2017-2-14 10:31
| 
