This media is not supported in your browser
VIEW IN TELEGRAM
Если Вы давно используете PowerPoint, то могли заметить, что в очень старых версиях у нас была возможность изменения прозрачности узорной заливки в фигурах. В более современных версия программы эту возможность на ленте или на панелях уже не найти.
Но прозрачность узорной заливки по-прежнему можно поменять. Например, с помощью коротенького макроса:
Sub ChangeTransparency()
ActiveWindow.Selection.ShapeRange(1).Fill.Transparency = 0.8
End Sub
Изменяйте величину прозрачности на нужную. Здесь она установлена на 80% (значение 0.8). Указывайте своё десятичное число от 0 до 1 с разделителем "точка". А затем выделяете нужную фигуру и запускаете макрос.
#PP_Макросы
Но прозрачность узорной заливки по-прежнему можно поменять. Например, с помощью коротенького макроса:
Sub ChangeTransparency()
ActiveWindow.Selection.ShapeRange(1).Fill.Transparency = 0.8
End Sub
Изменяйте величину прозрачности на нужную. Здесь она установлена на 80% (значение 0.8). Указывайте своё десятичное число от 0 до 1 с разделителем "точка". А затем выделяете нужную фигуру и запускаете макрос.
#PP_Макросы
This media is not supported in your browser
VIEW IN TELEGRAM
Если Вы давно используете PowerPoint, то могли заметить, что в очень старых версиях у нас была возможность изменения прозрачности узорной заливки в фигурах. В более современных версия программы эту возможность на ленте или на панелях уже не найти.
Но прозрачность узорной заливки по-прежнему можно поменять. Например, с помощью коротенького макроса:
Sub ChangeTransparency()
ActiveWindow.Selection.ShapeRange(1).Fill.Transparency = 0.8
End Sub
Изменяйте величину прозрачности на нужную. Здесь она установлена на 80% (значение 0.8). Указывайте своё десятичное число от 0 до 1 с разделителем "точка". А затем выделяете нужную фигуру и запускаете макрос.
#PP_Макросы
Но прозрачность узорной заливки по-прежнему можно поменять. Например, с помощью коротенького макроса:
Sub ChangeTransparency()
ActiveWindow.Selection.ShapeRange(1).Fill.Transparency = 0.8
End Sub
Изменяйте величину прозрачности на нужную. Здесь она установлена на 80% (значение 0.8). Указывайте своё десятичное число от 0 до 1 с разделителем "точка". А затем выделяете нужную фигуру и запускаете макрос.
#PP_Макросы
This media is not supported in your browser
VIEW IN TELEGRAM
Если Вы давно используете PowerPoint, то могли заметить, что в очень старых версиях у нас была возможность изменения прозрачности узорной заливки в фигурах. В более современных версия программы эту возможность на ленте или на панелях уже не найти.
Но прозрачность узорной заливки по-прежнему можно поменять. Например, с помощью коротенького макроса:
Sub ChangeTransparency()
ActiveWindow.Selection.ShapeRange(1).Fill.Transparency = 0.8
End Sub
Изменяйте величину прозрачности на нужную. Здесь она установлена на 80% (значение 0.8). Указывайте своё десятичное число от 0 до 1 с разделителем "точка". А затем выделяете нужную фигуру и запускаете макрос.
#PP_Макросы
Но прозрачность узорной заливки по-прежнему можно поменять. Например, с помощью коротенького макроса:
Sub ChangeTransparency()
ActiveWindow.Selection.ShapeRange(1).Fill.Transparency = 0.8
End Sub
Изменяйте величину прозрачности на нужную. Здесь она установлена на 80% (значение 0.8). Указывайте своё десятичное число от 0 до 1 с разделителем "точка". А затем выделяете нужную фигуру и запускаете макрос.
#PP_Макросы