VBA錯誤13運行時間

Question

這是我的交互式購物車代碼，但是我有

錯誤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

代碼的問題是，您將for each Shape循環都使用for each Shape該代碼，然后編寫了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