У меня хоть так:
- Код: Выделить всё
Dim oShape As Shape
Set oShape = ActiveSheet.Shapes.AddFormControl(Type:=xlButtonControl, _
Left:=100, Top:=100, Width:=100, Height:=100)
oShape.Fill.BackColor.SchemeColor = 35
хоть так:
- Код: Выделить всё
Dim oShape As Shape
Set oShape = ActiveSheet.Shapes.AddOLEObject(Left:=100, Top:=100, _
Width:=100, Height:=100, ClassType:="Forms.CommandButton.1")
oShape.Fill.BackColor.SchemeColor = 35
кнопка не красится!? По RGB:
- Код: Выделить всё
oShape.Fill.BackColor.RGB = RGB(64, 128, 64)
- тоже никакого эффекта. Или у меня уже глаз "замылился"?
