ошибка 1004 выполнение VBA кода приводит к ошибке

[Serge_Bliznykov]

Сообщение от Marina_may

Сергей, подскажите где возникает ошибка - попробую почитать руководство по VBA и самостоятельно поправить.

в CPI_stm.xla
открывайте редактор VBA, Modules -> "StimulCPI"

в нём ищите, например, ProgressBar
где закомментировано - это я закомментировал

Sub ProgressBar(dlg As DialogSheet, prg As Double, tmp As Double)
    Dim r As Integer, g As Integer
    
    Dim progBar0 As Rectangle, progBar1 As Rectangle
    Set progBar0 = dlg.Rectangles("ProgBar_0")
'    Set progBar1 = dlg.Rectangles("ProgBar")
    
    r = 255
    g = 255
      'If tmpo < 0 Then
         g = 255# * (1 + 3 * tmp)
         If g < 0 Then g = 0
      'ElseIf tmpo > 0 Then
         r = 255# * (1 - 3 * tmp)
         If r < 0 Then r = 0
      'End If
      r = 255 - g
r = 255
g = 255
'With dlg.Rectangles("ProgBar_0")
'progBar1.Delete
'Set progBar1 = dlg.Rectangles.Add(.Left, .Top, .Width * prg, .Height)
'progBar1.Border.Color = .Border.Color
'progBar1.Interior.Color = RGB(r, g, 64)
'progBar1.Name = "ProgBar"
'progBar1.BringToFront
'End With 'dlg.Rectangles("ProgBar_0")

End Sub 'ProgressBar()