Связать заголовок диаграммы с ячейкой Excel - PullRequest
Новая
       23

Связать заголовок диаграммы с ячейкой Excel

0 голосов
/ 13 марта 2020

В последнее время у меня возникли некоторые проблемы в Excel 365 (32 бита), я хочу установить заголовок диаграммы в качестве ссылки на ячейку (связанный, например, если заголовок диаграммы в A2, то это будет = A2, а не ячейка ("A2") ). Значение, которое код понимает ниже): 

Sub Link_Title_tocell
    Dim ttl As String
    Dim ppos As Range
    Dim ptil As String
    Dim nname As String
    ActiveChart.ChartTitle.Select
    nname = ActiveSheet.name
    ttl = MsgBox("Link chart title?", vbYesNoCancel)
    If ttl = vbYes Then
    Set ppos = Application.InputBox(Prompt:="Select cell range", Title:="Position", Type:=8)
        If IsEmpty(ppos.Value) Then
            ptil = Application.InputBox("Enter title")
            ppos.Value = ptil
            ActiveChart.ChartTitle.Formula = "=" & nname & "!" & ppos.Address(True, True, xlR1C1)
        Else
            nname = ActiveSheet.name
            ActiveChart.ChartTitle.Formula = "=" & nname & "!" & ppos.Address(True, True, xlR1C1)
        End If
    Else
' Later work to do
    End If
End sub

Если у вас есть какие-либо подсказки, это будет с благодарностью!

С уважением

...