Na list želim dodati pravokotnik s sporočilom (Počakaj, pripravljam pregled ...). Ko se postopek konča pravokotnik izbrišem.
Vse mi nekako uspe, ne znam pa spremeniti barve besedila. Pri dodajanju besedilo dobi belo barvo. V excel-u, ročno z oblikovanjem oblike pa barvo lahko spremenim.
V VBA naredim takole:
Koda: Izberi vse
xBarvaPodl = RGB(240, 200, 220)
xBarvaČrta = RGB(210, 110, 160)
cImeObl = "SporDelam"
cText = "Počakaj, pripravljam pregled za račun: " & Chr(10) & _
Worksheets(pListName).Name
With Worksheets(pListName).Shapes.AddShape(msoShapeRoundedRectangle, _
470, _
114, _
256, _
100)
.Name = cImeObl
.Fill.ForeColor.RGB = xBarvaPodl
.Line.Weight = 2
.Line.ForeColor.RGB = xBarvaČrta
.Placement = 3
.Fill.Transparency = 0.8
.TextEffect.Text = cText
.TextEffect.FontBold = True
.TextEffect.FontSize = 12
' .OnAction = cImeMak
End With
....
Worksheets(pListName).Shapes.Item(cImeObl).Delete
Poskusil sem tudi s snemanjem makra, pa posneme prazen makro.
Hvala za pomoč in lep pozdrav
Drago