Макрос на заливку градиентом

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Макрос на заливку градиентом - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос на заливку градиентом (Макросы/Sub)

Макрос на заливку градиентом

rever27

Дата: Понедельник, 27.07.2015, 11:10 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 141

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Как можно прописать макрос, чтобы залить ось диаграммы разными цветами, ибо макрорекордер не дает такой возможности.
[vba]

Код

    ActiveChart.ChartArea.Select
      ActiveChart.Axes(xlValue, xlSecondary).Select
      Selection.Format.line.Visible = msoTrue
      Selection.Format.line.Visible = msoTrue
      Selection.Format.line.Visible = msoTrue

[/vba]

Сообщение отредактировал rever27 - Понедельник, 27.07.2015, 11:10

Ответить

Karataev

Дата: Понедельник, 27.07.2015, 23:00 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 1334

Репутация: 533 ±

Замечаний: 0% ±

Excel

у меня макрорекордер записывает заливку оси.
в этом коде есть мой код и код макрорекордера.
я сделал градиентную заливку оси.
[vba]

Код

Sub FillSecAxis()

      With ActiveSheet.ChartObjects(1).Chart.Axes(xlValue, xlSecondary).Format.Fill
          .Visible = msoTrue
          .ForeColor.ObjectThemeColor = msoThemeColorAccent1
          .ForeColor.TintAndShade = 0.3399999738
          .ForeColor.Brightness = 0
          .BackColor.ObjectThemeColor = msoThemeColorAccent1
          .BackColor.TintAndShade = 0.7649999857
          .BackColor.Brightness = 0
          .TwoColorGradient msoGradientHorizontal, 1
      End With

End Sub

[/vba]

Сообщение отредактировал Karataev - Понедельник, 27.07.2015, 23:01

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос на заливку градиентом (Макросы/Sub)

Страница 1 из 1
1