无法在 Excel 中更改形状的颜色

Question

VBA 新手在这里。 我正在开发一个使用我客户的外部 dll 的工作簿。 在工作表中，我有一个按钮，当按下该按钮时，会启动一个使形状变为橙色的例程，然后调用 API，最后使形状变为黑色。

神奇的是，它只工作“几次”。

以下代码位于模块内的子代码中：

Dim shapeToFlash As String
shapeToFlash = "SHAPE " & sheetName
Worksheets("GTE HOME").Shapes(shapeToFlash).Fill.ForeColor.SchemeColor = 53
Worksheets("HOME").Shapes(shapeToFlash).Fill.ForeColor.SchemeColor = 53

// API CALL (kind of long operation ~ 3/4 seconds)

Worksheets("GTE HOME").Shapes(shapeToFlash).Fill.ForeColor.SchemeColor = 0
Worksheets("HOME").Shapes(shapeToFlash).Fill.ForeColor.SchemeColor = 0

我无法分享有关 API 的详细信息。我只是用传统的语法声明：

#If Win64 Then
Private Declare PtrSafe Function IMB_set_value _
    Lib "path/API.dll" () As Long

#Else
Private Declare Function IMB_set_value _
    Lib "path/API.dll" () As Long

并且完美运行。

问题是第一个 SchemeColor（到 53）不起作用，这意味着 API 被调用，第二个 SchemeColor 也被调用（形状变黑）。只是为了测试，我尝试将第二个 SchemeColor 注释为 0（为 0），我注意到在这种情况下，在调用 API 后形状变为橙色！这建议我 Excel 创建一种要执行的命令的优先级队列，并且 API 调用在第一个 SchemeColor 之前执行：这显然与我的流程混乱。有没有办法强制 Excel 立即执行操作？失败还有其他原因吗？

P.S.：我已经分别执行了第一行 SchemeColor 代码，并且运行良好，所以我认为代码是正确的。 P.P.S.：我也试过用 RGB 代替 SchemeColor，结果是一样的。

Answer 1

试试这个

Sub InitiateLongRunningOperation()
    Dim Argument as String

    HighlightShape
    Argument = "Argument Value"        
    Application.OnTime Now, "'LongRunningOperation """ & Argument & """'"
End Sub

Sub HighlightShape()
    Worksheets(1).Shapes(1).Fill.ForeColor.SchemeColor = 53
End Sub

Sub LongRunningOperation(AnArgument As String)
    Debug.Print AnArgument
    ' Replace the line below with your API call
    Application.Wait Now + TimeValue("0:00:03")

    Application.OnTime Now, "ResetShape"
End Sub

Sub ResetShape()
    Worksheets(1).Shapes(1).Fill.ForeColor.SchemeColor = 0
End Sub

它与Application.OnTime 一起使用来启动事件链，而无需等待所有事件都结束后再更新。 我已经更改了您的一些代码以使其更易于重现，但我认为您将能够很容易地遵循它。