Powerpoint : 更改已关注超链接颜色的代码，使其与超链接相同答案

【问题标题】：Powerpoint : Code to change the color of Followed Hyperlink, so that it is the same as that of HyperlinkPowerpoint : 更改已关注超链接颜色的代码，使其与超链接相同
【发布时间】：2016-12-22 12:33:30
【问题描述】：

我需要一个 VBA 代码，它将当前应用于 powerpoint 演示文稿的颜色主题更改为跟随的超链接，并使其类似于应用于普通超链接的主题。

基本上，我不希望在单击链接时改变颜色 - 虽然我知道如何手动执行此操作，但我需要自动化。

我有一个代码可以实现这一点——唯一的问题是我不知道如何获取配色方案的名称并保存它。发布我的代码：

Sub ChngThemeColour()
With ActivePresentation.SlideMaster.Theme
.ThemeColorScheme(msoThemeFollowedHyperlink) = .ThemeColorScheme(msoThemeHyperlink).RGB
End With
End Sub

【问题讨论】：

标签： vba hyperlink colors powerpoint

【解决方案1】：

我不确定如何获取当前主题的名称，但您可以这样保存：

Activepresentation.SlideMaster.Theme.ThemeColorScheme.Save "filename"

【讨论】：