結果を先に書くと、 Shape.TextFrame2.TextRange.Font.Fill.GradientStops.Item(1).Color で取得できました。 - : TextFrame2 : : TextFrame2/TextFrame2 : Module1.aaa - : TextRange : : TextRange2/TextRange2 : Module1.aaa - : Font : : Font2/Font2 : Module1.aaa - : Fill : : FillFormat/FillFormat : Module1.aaa…