Excel VBA將ShapeEffect應用於圖表系列

我有寫的VBA代碼，它創建了一個Excel列集羣圖表，並且我的所有代碼都可以工作，但是我對圖表的外觀不滿意，因此我試圖穿上它一些。該圖表是自動報告的一部分，所以我只想要能夠安排我的宏運行，而不必手動更改數據系列。由於Excel 2007將圖表的屬性和方法設置爲只讀，因此它們在錄製宏時不會填充。Excel VBA將ShapeEffect應用於圖表系列

所以我試圖做類似的東西爲以下後 How to apply ShapeStyle to a specific Series of a Chart in Excel using VBA?

但是我想套用形的影響，以圖表系列。手動獲取形狀效果我希望您必須在圖表中選擇系列，然後選擇圖表工具>格式>形狀效果>預設>預設2.這使數據系列在沒有3D圖表的麻煩的情況下顯示爲3D。此外，我無法使用3D圖表，因爲我有第二個訪問的第四個數據系列，您無法使用3D列集羣圖表執行此操作。

任何幫助將不勝感激。

UPDATE

我回去，我看着這個在2010年是否有任何改變了。您仍然無法直接將預設應用於圖表，但錄製宏確實會嘗試錄製某些內容。

如果您選擇一個系列並應用預設，那麼請查看3-D選項，您可以查看設置的值。從那裏只需要在VBA中設置這些內容。

下面是對3-d選項

Selection.Format.Line 
Selection.Format.Fill 
Selection.Format.Shadow 
Selection.Format.Glow 
Selection.Format.ThreeD

有很多的屬性，所以我就不一一列舉了所有的課程。我確實發現，如果您錄製一個宏並設置一個屬性，它會被記錄下來，這樣可以幫助您更貼近地應用所需的效果。

來源

2012-09-23 AxGryndr

你可以嘗試以下attemps之一：

Chart.ApplyLayout(1)

使用您先前定義的Diagrammlayoutpreset。

或者使用：

with Chart.SeriesCollection(1).Format.ThreeD 
    .visible = true 
    .depth = 50 
end with

尋找在Excel的幫助ThreeDFormat-對象來獲取所有可能的設置。這不是3D-Style-Chart，而是3D-Style系列;）要獲得與preset2相同的結果，只需查找preset2系列格式化對話框中的格式變化即可。

來源

2012-09-25 16:04:28 Jook

我有很多事情要做，但我會嘗試你的建議，讓你知道我找到了什麼。我不知道他們爲什麼沒有製作像紋理這樣的預設風格。 – AxGryndr

那麼我終於有機會重溫這個了。你的代碼確實有用，但並不完全符合我的需求。看來VBA類不包含這個功能。 – AxGryndr

Excel VBA將ShapeEffect應用於圖表系列

回答

相關問題