< návrat zpět

MS Excel


Téma: Úprava makra rss

Zaslal/a 15.10.2013 21:06

Dobrý den,
prosím o radu. Mám makro v kterém vyhledávám duplicitní položky a ty označím oválem. Bohužel neumím upravit sílu čáry oválu, která překrývá text. Níže uvádím kód nastavení oválu u kterého je síla čáry 2,25 bodu a rád bych měl sílu čáry 1,5 bodu. Prosím poraďte.

With .Shapes.AddShape(msoShapeOval, _
rngX.Left, _
rngX.Top, _
rngX.Width, _
rngX.Height)
.Fill.Visible = msoFalse
.Line.ForeColor.SchemeColor = 13
End With

Zaslat odpověď >

icon #015679
avatar
Sub xxx()
Dim MyShape As Shape
Set MyShape = ActiveSheet.Shapes(1)
With MyShape.Line
.Weight = 1.5
End With
End Sub


čiže v tom Tvojom kóde by pred end with malo stačiť doplniť riadok:.Line.Weight = 1.5citovat
#015684
avatar
Moc děkuji funguje bezvadně.citovat
icon #015685
avatar
za nič 1citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09