Dodajanje pravokotnika na list

Pomoč pri izdelavi makrov
Odgovori
dragopre
Prispevkov: 105
Pridružen: To Dec 11, 2012 11:46 pm

Dodajanje pravokotnika na list

Odgovor Napisal/-a dragopre »

Pozdravljeni
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
ps.
Poskusil sem tudi s snemanjem makra, pa posneme prazen makro.

Hvala za pomoč in lep pozdrav
Drago
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Dodajanje pravokotnika na list

Odgovor Napisal/-a admin »

Pozdravljeni,

Dodajte sledečo vrstico:

Koda: Izberi vse

.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(255, 0, 0)
za recimo RDEČE črke.
lp,
Matjaž Prtenjak
Administrator
dragopre
Prispevkov: 105
Pridružen: To Dec 11, 2012 11:46 pm

Re: Dodajanje pravokotnika na list

Odgovor Napisal/-a dragopre »

Hvala za hiter odgovor.
Zdaj imam pa še eno željo. Kako bi del bededila (npr od pozicije 40 do 50) pobarval z drugo barvo.

Lep pozdrav, Drago
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Dodajanje pravokotnika na list

Odgovor Napisal/-a admin »

Eankovredno kot prej, le da dodate območje znakov; torej od 40-tega znaka 10 znakov:

Koda: Izberi vse

.TextFrame2.TextRange.Characters(40, 10).Font.Fill.ForeColor.RGB = RGB(255, 0, 0)
lp,
Matjaž Prtenjak
Administrator
Odgovori