Skip to main content
4 / 6
本文に 1 文字追加
yn95ny
  • 298
  • 3
  • 8

シェイプのフォントの色を「自動」に設定する方法でやってみました。
黒のカラーコードはColorIndexでは1です。

Sub macro1()
Dim sp As Shape
Set sp = ActiveSheet.Shapes(1)
sp.TextFrame.Characters.Font.ColorIndex = xlColorIndexAutomatic
End Sub

Sub macro2()
Dim sp As Shape
Set sp = ActiveSheet.Shapes(1)
sp.TextFrame.Characters.Font.Color = 0
End Sub
yn95ny
  • 298
  • 3
  • 8