使用VBA命名特定的形狀

我在PowerPoint中有一個演示文稿，其中包含許多形狀。是否有一種方法可以命名圖形（僅從Excel工作簿鏈接）的所有形狀。例如，一張幻燈片有4個圖形，所以形狀的名稱是MyPicture1，MyPicture2，MyPicture3和MyPicture4。到目前爲止的代碼看起來像使用VBA命名特定的形狀

Sub test() 
Dim lctr As Long 
Dim shp As shape 
Dim ii As Integer 

For ii = 1 To 6 
    For Each shp In ActivePresentation.Slides(ii).Shapes 
     If shp.Type = msoChart Then 
     lctr = lctr + 1 
     shp.Name = "MyPicture" & lctr 
    End If 
    Next shp 
Next ii

來源

2016-07-27 Orongo

據我所知PowerPoint中的對象沒有名稱。你可以在幻燈片中獲得他們的形狀索引。 –

您可以在圖片工具 - >選擇窗格 – Orongo

什麼PowerPoint版本中命名您的形狀？我找不到這個工具欄，它位於哪裏？ –

如果我理解正確的話，你要列出所有圖表在演示文稿的名稱。要做到這一點，你可以使用一個循環，如：

Dim shp as Shape 
For Each shp In ActivePresentation.Slides(i).Shapes 
If shp.Type = msoChart Then 
    Debug.Print shp.Name 
End If 
Next

編輯：或者你也可以使用Shape.HasChart屬性。

If shp.HasChart Then 
Debug.Print shp.Name 
End If

來源

2016-07-27 11:14:57

我需要調暗圖表。什麼是昏暗的？ – Orongo

Dim Chart as Shape –

爲了適應我的目的，我不得不做一些更改，它不會重命名我的圖表。我用我的代碼修改了我的問題。 – Orongo

使用VBA命名特定的形狀

回答

相關問題