• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse