Betrifft: Grafik spiegeln
von: Martin
Geschrieben am: 21.01.2010 11:43:24
Hallo Forumfreunde
Hui das ist glaub echt eine Knacknuss.
Ich habe eine Grafik (Freihandform) die ich horizontal spiegeln will. Aufzeichnen geht nicht und mit google finde ich nur ellenlange Makro's.
Ist die wirklich so schwer?? Da gibt es doch sicher einen ganz einfachen Code . . .
Danke und Guten Apetit
Martin
Betrifft: AW: Grafik spiegeln
von: welga
Geschrieben am: 21.01.2010 11:59:09
Hallo Martin,
versuch es doch mal damit:
ActiveSheet.Shapes("Freeform 1").Select
Selection.Copy
Range("I33").Select
ActiveSheet.Paste
Selection.ShapeRange.Flip msoFlipHorizontal 'Horizontales Spiegeln
Selection.ShapeRange.Flip msoFlipVertical 'Vertikales Spiegeln
Gruß
welga
Betrifft: AW: Grafik spiegeln
von: Tino
Geschrieben am: 21.01.2010 12:09:53
Hallo,
so müsste es gehen.
'Tabelle anpassen und die den Namen der Form anpassen With Tabelle1.Shapes("Form 1").DrawingObject.ShapeRange .Flip msoFlipHorizontal ' Horizontal spiegeln .Flip msoFlipVertical ' Vertikal spiegeln End WithGruß Tino
Betrifft: AW: Grafik spiegeln
von: Martin
Geschrieben am: 21.01.2010 13:06:41
Danke euch beiden
Wenn wir schon dabei sind drehen nach links 90°?
Danke
Betrifft: AW: Grafik spiegeln
von: Tino
Geschrieben am: 21.01.2010 13:12:59
Hallo,
versuche es mit
'... .Rotation = 90 'Drehwinkel '...Gruß Tino
Betrifft: .IncrementRotation -90#
von: Rudi Maintaire
Geschrieben am: 21.01.2010 13:13:16
Hallo,
ist dein Recorder kaputt?
Gruß
Rudi
Betrifft: AW: .IncrementRotation -90#
von: Martin
Geschrieben am: 21.01.2010 14:59:54
Hallo Rudi
Nein eigendlich nicht, aber wenn man eine Form zeichnet und dann aufzeichnet wird eben nichts aufgezeichnet. . . ;-(
Aber danke für die Tipps sie helfen wie immer . . .
Grüsschen aus der Schweiz