Powerpoint：用于更改Followed Hyperlink颜色的代码，因此它与Hyperlink

Question

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

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

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

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

Answer 1

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

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