Autoform nicht aufgezeichnet bei Makrorec.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

dürfte ich bitte noch erweitert dazu was fragen ?
okay habs nun auf dem anderen System schnell aufgezeihnet und ins 2007ener übernommen.
macht er soweit auch alles ... jetzt fehlt mir nur noch bissel was an der Kür ... da bin ich was die richtige Ansprache der Anweisung angeht noch nicht so fit, könntest du mir da noch bitte bei helfen ?
der aufgezeichnete Code aus 2003 Excel sieht zunächst so aus :
ActiveSheet.Shapes("Auf der gleichen Seite des Rechtecks liegende Ecken abrunden 26").Select
With Selection.Font
.Name = "Calibri"
.FontStyle = "Standard"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 20
End With
hab ihn schon runtergekürzt auf :
ActiveSheet.Shapes("Auf der gleichen Seite des Rechtecks liegende Ecken abrunden 26").Select
With Selection.Font
.ColorIndex = 20
End With
so funktionierts dann auch ... aber schöner wäre wenn das ganze noch ohne "Select" ablaufen würde,
sprich der Code jene Autoform einfach im Fontwert entspr. ändert.
und kann die Passage .colorindex = 20 mit einer RGB Anweisung ausgetauscht werden, wo ich dann die RGB werte angeben könnte des Farbtons ?
Wenn du / Ihr mir da nochmals helfen könntet hätt ich s im Kasten
Großen Dank im Voraus für eure Ideen
udo aus Stuttgart

Hallo Karin ,
großen Dank auch an Dich - ihr seit mir eine riesen Hilfe - lieben Dank !
deine Anweisung / Änderung funktioniert schon toll ... jetzt ist wie ich eben gesehn
habe nur noch der Farbwert das Thema ...
ich habe auf einem seperaten Tabellenblatt mal schnell den Code von Boris laufen lassen um die
Farbwerte ( Colorindexe ) sich aufschlüsseln zu lassen.

Sub alle_farben_und_nummern()
Dim by As Byte
For by = 0 To 56
Cells(by + 1, 1).Interior.ColorIndex = by
Cells(by + 1, 2) = by
Next by
End Sub

da werden mir nun alle 56 Colorindex Farben angezeigt, mit entspr. Nr daneben - soweit so gut.
Jetzt ist nur die Farbe die anschl. wieder zurückgewechselt werden soll ( also nachdem der ganze Vorgang mit Colorindex 20 dann durch ist ) und die Autoform in ihre ursprüngl. Farbe wieder wechseln sollte, gerade der ist nicht dabei bei den 56 Farben ... scheint ein spezieller RGB Wert zu sein ( ist folgender R=147; G=205; B=221 )
wie müsste man die Anweisung aufbauen wenn sie per RGB Wert funktionieren soll ... ?
Dann lass ich Euch in Ruhe für heut ;-)
Lieben Dank ihr seit echt spitze
Udo aus Stuttgart

Beliebteste Forumthreads (12 Monate)

Autoform nicht aufgezeichnet bei Makrorec.

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread