[[20180516163600]]　『オブジェクトの背景を変えたい』（みみん）　ページの最後に飛ぶ

『オブジェクトの背景を変えたい』（みみん）

お世話になります
ご教示いただけたら幸いです
オブジェクトの背景　黒だったら白
白だったら黒　一つのマクロ行う場合
どの様にすればいいのでしょうか

お願いいたします

Sub Macro8()

    ActiveSheet.DrawingObjects.Select
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorText1
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = 0
        .Transparency = 0
        .Solid
        End With
    End Sub
  Sub Macro9()

    ActiveSheet.DrawingObjects.Select

    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 255, 255)
        .Transparency = 0
        .Solid
    End With
End Sub

＜使用 Excel：Excel2010、使用 OS：Windows10 ＞

 一行ですけど、こんなんでいいかも。
 Sub MacroTEST()
    ActiveSheet.DrawingObjects.ShapeRange.Fill.ForeColor.RGB = &HFFFFFF Xor ActiveSheet.DrawingObjects.ShapeRange.Fill.ForeColor.RGB
 End Sub
（ろっくん） 2018/05/16(水) 17:06

全ての図形を同じ色に塗っていますが、1つずつ判定する例なぞ。

 Sub test()
    Dim i As Long

    For i = 1 To ActiveSheet.DrawingObjects.Count
        With ActiveSheet.DrawingObjects(i).ShapeRange.Fill
            If .ForeColor.RGB = RGB(255, 255, 255) Then
                .ForeColor.ObjectThemeColor = msoThemeColorText1
            Else
                .ForeColor.RGB = RGB(255, 255, 255)
            End If
        End With
    Next i
 End Sub
（???） 2018/05/16(水) 17:13

ろっくん様　　???様

ありがとうございます

無事完了できて感謝です
（みみん） 2018/05/16(水) 17:44

コメント返信：

[ 一覧(最新更新順) ]

[[20180516163600]] 『オブジェクトの背景を変えたい』（みみん） ページの最後に飛ぶ

[[20180516163600]]　『オブジェクトの背景を変えたい』（みみん）　ページの最後に飛ぶ