Если Вы давно используете PowerPoint, то могли заметить, что в очень старых версиях у нас была возможность изменения прозрачности узорной заливки в фигурах. В более современных версия программы эту возможность на ленте или на панелях уже не найти.

Но прозрачность узорной заливки по-прежнему можно поменять. Например, с помощью коротенького макроса:

Sub ChangeTransparency()
ActiveWindow.Selection.ShapeRange(1).Fill.Transparency = 0.8
End Sub

Изменяйте величину прозрачности на нужную. Здесь она установлена на 80% (значение 0.8). Указывайте своё десятичное число от 0 до 1 с разделителем "точка". А затем выделяете нужную фигуру и запускаете макрос.

#PP_Макросы