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"