自動設置圖表的標題

-1

反正有一個圖表的標題等於字符串變量。我記錄了我手動更改標題的過程，並首先激活它，然後顯示我的文本編輯，但如果我不想激活它，我該如何做到這一點。我知道圖表的名稱是圖表1，所以試圖找到一種方法將圖表1的標題設置爲我的字符串變量（我從其他地方的其他循環生成）。 THX自動設置圖表的標題

activesheet.chartobjects("chart 1").activate 
activesheet.charttitle.text="my text edit"

來源

2017-03-06 nas

ActiveSheet.ChartObjects("Chart 1").Chart.ChartTitle.Text = "my text edit"

你可以閱讀更多關於chartObjects here

來源

2017-03-07 00:59:30 jamfie

哦完善;這工作，thx。無論如何，不是說'ActiveSheet'來表示表單名稱本身。比方說，我稱之爲「Sheet1」。 – nas

只需將圖紙替換爲紙張 'sheets（「sheet1」）。ChartObjects（「Chart 1」）。Chart.ChartTitle.Text =「my text edit」 – jamfie

我喜歡這個解決方案：

Dim var As String 

Set objChrt1 = Sheets("sheet1").ChartObjects(1) 
Set myChart1 = objChrt1.chart 
myChart1.ChartTitle.Text = "my text edit" 

var = myChart1.ChartTitle.Text 
MsgBox var

來源

2017-03-07 06:17:10 BOB

自動設置圖表的標題

回答

相關問題