VBAエラー13実行時

Question

はここでインタラクティブカートのための私のコードですが、私はあなたがfor each Shapeループを使用することを

エラー13実行時

Sub Freeform124_Click() 

    Dim NomShape As String 

    NomShape = Application.Caller 
    For Each Shape In ActiveSheet.Shapes 
     form.Fill.ForeColor.RGB = RGB(0, 50, 0) 
    Next Shape 

End Sub 

Answer 1

あなたのコードに問題がある

を持っていますform.fill.forecolorと書きます。おそらく、 プラス文字列に解析されたapplication.caller

オブジェクトからマクロをクリック可能にすると、すべてのオブジェクトの色を変更する良い方法です。

Option Explicit 

Sub Rechteck1_Klicken() 

    Dim oCaller   As Object 
    Dim shShape   As Shape 

    Set oCaller = ActiveSheet.Shapes(Application.Caller) 
    oCaller.Fill.ForeColor.RGB = RGB(100, 250, 250) 

    For Each shShape In ActiveSheet.Shapes 
     If shShape.Name <> oCaller.Name Then 
      shShape.Fill.ForeColor.RGB = RGB(110, 50, 0) 
     End If 
    Next shShape 

End Sub