Hello, It's my first post and I'm completely new to VBA. I'm trying to copy Accent RGB values into textbox on slide in PowerPoint

 
Shape.Fill.ForeColor.ObjectThemeColor = msoThemeColorAccent1
Shape.TextFrame.TextRange.Font.Color.RGB = RGB(255, 255, 255)    
Shape.TextFrame.TextRange.Characters.Text = msoThemeColorAccent1
It fills shape color with Accent 1, but as I supposed returns only position of Accent 1 which is 5... is there a way to return RGB values.. so the result would be sth like A1: 123 144 156

Thank you for your time and help.