спасибо, помогло  )

Проблема в том что не знаю как именно в моем случае выполнить заливку, не обращаться, а сразу определенного цвета вставить на лист:

myDocument.Shapes.AddLabel(msoTextOrientationHorizontal, 10, 10, 10, 30).TextFrame.Characters.Text = "проба"

Доброго времени суток, нужна помощь. как с помощью VBA выполнить заливку красным цветом Shapes в эксель?

Sub zalivka()

Dim cur_range As Range
With ActiveSheet
Set cur_range = Selection
cur_range.Activate
'Worksheets("схема"  ;)  .Activate
For x = 1 To cur_range.Rows.Count

If cur_range(x, 2) <> "" Then Str_0 = Int(cur_range(x, 2) / 100)

Set myDocument = Worksheets("схема"  ;)  

If cur_range(x, 2) <> "" And cur_range(x, 3) <> "" Then myDocument.Shapes.AddLabel(msoTextOrientationHorizontal, cur_range(x, 2) * 10 - Str_0 * 1000, Str_0 * 120 + 30, cur_range(x, 3) * 10 - cur_range(x, 2) * 10, 30).TextFrame.Characters.Text = cur_range(x, 4)

Next x
End With