Skip to main content
本文から 5 文字削除
ソース リンク
yn95ny
  • 298
  • 3
  • 8

シェイプのフォントの色「自動」に設定する方法とFont.Colorで黒の両方でやってみ判別してみました。
同じ振る舞いをするので、仕様カラーコードはColorIndexでは1ようです

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

Sub macro2()
Dim sp As Shape0
Set sp =If ActiveSheet.Shapes(1).TextFrame.Characters.Font.ColorIndex = xlColorIndexAutomatic Then
sp.TextFrame.Characters.Font.ColorColorIndex = 03
End If
End Sub

シェイプのフォントの色「自動」に設定する方法とFont.Colorで黒の両方でやってみました。
カラーコードは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

シェイプのフォントの色「自動」とFont.Colorで黒の判別してみました。
同じ振る舞いをするので、仕様ようです

Sub macro1()
Dim sp As Shape
Set sp = ActiveSheet.Shapes(1)
sp.TextFrame.Characters.Font.Color = 0
If ActiveSheet.Shapes(1).TextFrame.Characters.Font.ColorIndex = xlColorIndexAutomatic Then
sp.TextFrame.Characters.Font.ColorIndex = 3
End If
End Sub
本文に 16 文字追加
ソース リンク
yn95ny
  • 298
  • 3
  • 8

シェイプのフォントの色を「自動」に設定する方法とFont.Colorで黒の両方でやってみました。
黒のカラーコードは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

シェイプのフォントの色を「自動」に設定する方法でやってみました。
黒のカラーコードは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

シェイプのフォントの色を「自動」に設定する方法とFont.Colorで黒の両方でやってみました。
黒のカラーコードは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
本文に 1 文字追加
ソース リンク
yn95ny
  • 298
  • 3
  • 8

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

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.ColorIndexColor = 20
End Sub

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

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.ColorIndex = 2
End Sub

シェイプのフォントの色を「自動」に設定する方法でやってみました。
黒のカラーコードは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
本文に 119 文字追加
ソース リンク
yn95ny
  • 298
  • 3
  • 8
読み込んでいます
編集済みの本文
ソース リンク
cubick
  • 2.1万
  • 5
  • 27
  • 64
読み込んでいます
ソース リンク
yn95ny
  • 298
  • 3
  • 8
読み込んでいます