< 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

Jméno
Kontrola
Text
  b i u s img code url hr   1 2 3 4 5 6 7 8 9 10

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

Vyhledání buněk a kopírování do druhého listu

matusup • 15.5. 10:13

Relativní cesta - zdroje Power Query

elninoslov • 15.5. 9:44

Relativní cesta - zdroje Power Query

Alfan • 15.5. 8:46

Přidat dny

Baja • 15.5. 8:17

Vyhledání buněk a kopírování do druhého listu

elninoslov • 15.5. 8:15

Přidat dny

elninoslov • 15.5. 8:11

Vyhledání buněk a kopírování do druhého listu

matusup • 15.5. 7:25