Powerpoint：代码来改变跟随超链接的颜色，以便它与超链接的颜色相同

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"