Как добавить текст в диаграмму с помощью макроса Excel?

Question

Использование следующих кодов для добавления текста в диаграмму с помощью макроса Excel?При компиляции в модуль он показывает «объект не поддерживает это свойство или метод», любые предложения или пересмотренные коды действительно приветствуются.Спасибо

Set myDocument = Ch.Chart

  myDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 382, 266, 122, 20).Select

    Selection.ShapeRange.TextFrame.Characters.Text = ThisWorkbook.ActiveSheet.Cells(6, 8)

   With Selection.ShapeRange.TextFrame.Characters

    .Font.Name = "Tahoma"

    .Font.Size = 10

    .Font.Bold = msoTrue

   End With

Answer 1

Нет необходимости выбирать диаграмму перед добавлением текстового поля и т. Д. Ваш код можно переписать следующим образом ...

Dim theChartObj As ChartObject
Set theChartObj = Worksheets("Sheet1").ChartObjects("Chart 1") 'change the sheet and chart names accordingly

Dim theChart As Chart
Set theChart = theChartObj.Chart

Dim theTextBox As Shape
Set theTextBox = theChart.Shapes.AddTextbox(msoTextOrientationHorizontal, 382, 266, 122, 20)

With theTextBox.TextFrame.Characters
    .Text = ThisWorkbook.ActiveSheet.Cells(6, 8).Value
    With .Font
        .Name = "Tahoma"
        .Size = 10
        .Bold = msoTrue
    End With
End With