Как сделать диаграмму прозрачной в excel

Изменение цвета или стиля диаграммы в Office

Возможно, вы создали диаграмму и считаете, что для нее нужно что-то еще, чтобы сделать ее более эффектной. Здесь удобно использовать стили диаграмм. Щелкните диаграмму, , расположенную рядом с диаграммой в правом верхнем углу, и выберите нужный вариант в коллекций Стиль или Цвет.

Изменение цвета диаграммы

Щелкните диаграмму, которую вы хотите изменить.

В верхнем правом углу рядом с диаграммой нажмите кнопку Стили диаграмм .

Щелкните Цвет и выберите нужную цветовую схему.

Совет: В стилях диаграммы (сочетаниях параметров форматирования и макетов диаграммы) используются цвета темы. Чтобы изменить цветовую схему, выберите другую тему. В Excel на вкладке Разметка страницы нажмите кнопку Цвета, а затем выберите схему или создайте собственные цвета темы.

Изменение стиля диаграммы

Щелкните диаграмму, которую вы хотите изменить.

В верхнем правом углу рядом с диаграммой нажмите кнопку Стили диаграмм .

Щелкните Стиль и выберите необходимый параметр.

При просмотре коллекции с помощью функции динамического просмотра вы сможете увидеть, как будут выглядеть данные диаграммы при применении определенного стиля.

Как сделать диаграмму прозрачной в excel

Книга: Excel. Трюки и эффекты

Эффект прозрачности диаграммы

Эффект прозрачности диаграммы

С помощью несложного трюка можно сделать так, что диаграмма будет прозрачной. Для этого применим, например, такой макрос (листинг 4.10).

Листинг 4.10. Эффект прозрачности диаграммы

Dim shpShape As Shape

Dim dblColor As Double

Dim srSerie As Series

Dim intBorderLineStyle As Integer

Dim intBorderColorIndex As Integer

Dim intBorderWeight As Integer

‘ Проверка, есть ли выделенная диаграмма

If ActiveChart Is Nothing Then Exit Sub

‘ Изменение отображения каждой категории

For Each srSerie In ActiveChart.SeriesCollection

If (srSerie.ChartType = xlColumnClustered Or _

srSerie.ChartType = xlColumnStacked Or _

srSerie.ChartType = xlColumnStacked100 Or _

srSerie.ChartType = xlBarClustered Or _

srSerie.ChartType = xlBarStacked Or _

srSerie.ChartType = xlBarStacked100) Then

‘ Сохранение прежнего цвета категории

‘ Сохранение стиля линий

‘ Толщина линий границы

Set shpShape = ActiveSheet.shapes.AddShape _

(msoShapeRectangle, 1, 1, 100, 100)

‘ Закрашиваем нужным цветом

‘ Копируем автофигуру в буфер обмена

shpShape.CopyPicture Appearance:=xlScreen, _

‘ Вставляем автофигуру в изображения столбцов _

категории и настраиваем

‘ Возвращаем на место толщину линий

‘ Автофигура больше не нужна

После применения данного макроса диаграмма станет прозрачной. Степень прозрачности указывается в строке. Fill. Transparency = 0. 4 – в приведенном примере она равна 40 %. При необходимости данный параметр можно изменить по своему усмотрению. Например, на рис. 4.7 показана диаграмма, у которой прозрачность составляет 60 % (эта же диаграмма изображена на рис. 4.4 в непрозрачном виде).

Данный трюк применяется к созданным ранее диаграммам.

Ссылка на основную публикацию