MS Excel

Téma: Úprava makra

Zaslal/a Pepa-R 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ěď >

AL(15.10.2013 22:02)#015679

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

Pepa-R(16.10.2013 0:40)#015684

Moc děkuji funguje bezvadně.citovat

AL(16.10.2013 1:02)#015685

za nič

citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.