Установите минимальное значение для оси X - PullRequest
Новая
       15

Установите минимальное значение для оси X

0 голосов
/ 28 марта 2019

В настоящее время я вручную вписываю дату проекта в качестве серийного номера Excel в параметры оси моего графика (Границы => Минимум).

Я пытаюсь разместить код на рабочем листе, чтобы сделать егообновите это значение автоматически при изменении даты начала.

Я провел часы в интернете, пытаясь найти код, который будет работать, и собирая кусочки кода, чтобы выполнить работу, но я продолжаю получать ошибки запуска

На данный момент я дошел до этой точки с кодом 

Private Sub Worksheet_Change(ByVal Target As Range)

Dim cht As Chart
Dim xmin As Integer

    Set xmin = Sheets("Planning").Range("O37").Value

    Set cht = Worksheets("Planning").ChartObjects("Chart 2").Chart

    cht.Axes(xlCategory).MinimumScale = xmin

End Sub

Заранее спасибо за любую помощь!

1 Ответ

0 голосов
/ 08 апреля 2019

Хорошо - мне удалось заставить следующий код работать так, как я хотел 

Private Sub Worksheet_Change(ByVal Target As Range)

Dim objCht As ChartObject
   For Each objCht In ActiveSheet.ChartObjects
      With objCht.Chart
         ' Value (Y) Axis
         With .Axes(xlValue)
            .MinimumScale = Sheets("Planning").Range("E3").Value
         End With
      End With
   Next objCht

End Sub

Спасибо всем за помощь и советы!

...