Как я могу создать и отформатировать легенду диаграммы в зависимости от того, является ли переменная истинной?

Question

Мне нужно добавить легенду к диаграмме и отформатировать ее в правом нижнем углу диаграммы, если isLegend = True

With Monthly
    If isLegend = True Then .HasLegend = True
    .HasTitle = True
    If isTitle = True Then .ChartTitle.Text = Range("A1")

Answer 1

вы можете использовать свойство legend.position, чтобы установить положение легенды, см. положение легенды .

Чтобы установить метку для серии, которую вы используете series.HasDataLabels = True, см. метки серии .

' to include the data label (n refers to the series here)
Charts(i).SeriesCollection(n).HasDataLabels = True
'Sets position to bottom of chart
Charts(i).legend.position = xlLegendPositionBottom

Затем вам нужно лишь немного отредактировать свои блоки

В качестве отдельного примечания, ваши операторы if, кажется, не имеют end if