Microsoft Excel

Herbers Excel/VBA-Archiv

Grafik spiegeln | Herbers Excel-Forum


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 With
Gruß 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


Beiträge aus den Excel-Beispielen zum Thema "Grafik spiegeln"