Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1536to1540
1536to1540
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Shape Objekt drehen

Forumthread: Shape Objekt drehen

Shape Objekt drehen
20.01.2017 12:27:33
Oisse
Hallo Zusammen,
mit folgendem Code füge ich ein Bild ein: 
Call ActiveSheet.Shapes.AddPicture(Filename:=lPathCol & lPicNameCol, _
LinkToFile:=msoTrue, SaveWithDocument:=msoFalse, _
Left:=Columns(lPicColA).Left, Top:=Rows(int_Counter).Top, _
Width:=Application.CentimetersToPoints(bb), Height:=Application.CentimetersToPoints(bh))

Das funktioniert auch bestens.
Nun möchte ich genau dieses eingefügte Bild drehen.
Wie muss hier der Code weitergehen?
Ich weiß die Spalte, in der sich das Bild befindet und auch die Zeile.
Aber mit: 
ActiveSheet.Shapes.Range("F" & int_Counter).Rotation = ActiveSheet.Shapes.Range("F" & int_Counter).Rotation + Grad

funktioniert es nicht, weil er einen Namen oder einen Index erwartet.
Wie bitte komme ich da dran, oder welche Gesamtlösung bietet sich hier?
Gruß Oisse
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Laienhafte Hilfe ...
20.01.2017 12:50:14
Dieter(Drummer)
Hallo Oisse,
evtl. hilft dir dies Makro als Beispiel weiter. Hier kann z.B, ein Picture1 um 180 Grad nach rechts gedreht werden und es funktioniert. Du brauchst es also nur noch auf dein Shape, das sicher eine genaue Bezeichnung hat, anzupassen: 
Sub PictureDrehen()
ActiveSheet.Shapes.Range(Array("Picture 1")).Select
Selection.ShapeRange.IncrementRotation 180 'z.B. Rechtsdrehung 180 Grad
End Sub

Anzeige
AW: Laienhafte Hilfe ...
20.01.2017 13:09:07
Oisse
Hallo Dieter,
danke für deine Hilfe.
Genau da liegt ja mein Problem, dass ich herausfinden muss, wie dieses Objekt heißt. Ich kenne den Namen des Bildes, vor dem Einfügen. Aber wie komme ich an den Namen, nach dem Einfügen.
Wenn jemand eine Lösung hat, wie ich das Bild drehen kann vor dem Einfügen wäre das genauso gut oder sogar noch besser.
Herzliche Grüße
Oisse
Anzeige
AW: Wenn Shape eingefügt ist ...
20.01.2017 13:17:25
Dieter(DRummer
... dann mit Maustaste Rechtsklick auf das Shape. Dann erscheint links oben in der Menüleiste der Name des Shape.
Gruß, Dieter(Drummer)
AW: Wenn Shape eingefügt ist ...
20.01.2017 14:36:44
Oisse
Danke Dieter,
aber ich bräuchte wenn dann den Namen im Makro, sonst muss ich ja jedesmal ins Namensfeld wechseln.
Das ist bei dutzenden Fotos doch etwas zu umständlich.
Herzlichen Gruß
Oisse
Anzeige
AW: Shape Objekt drehen
20.01.2017 13:22:58
ChrisL
Hi
Sub t()
Dim sh As Shape
' alle anderen Variablen definieren
Set sh = ActiveSheet.Shapes.AddPicture(Filename:=lPathCol & lPicNameCol, _
LinkToFile:=msoTrue, SaveWithDocument:=msoFalse, _
Left:=Columns(lPicColA).Left, Top:=Rows(int_Counter).Top, _
Width:=Application.CentimetersToPoints(bb), Height:=Application.CentimetersToPoints(bh))
sh.IncrementRotation 180
End Sub

cu
Chris
Anzeige
AW: Shape Objekt drehen
20.01.2017 14:35:03
Oisse
Servus Chris,
auch dir herzlichen Dank für die schnelle Hilfe.
Klappt!
Herzlichen Gruß
Oisse
;

Forumthreads zu verwandten Themen

Userform als Bild in Word
martin

Wie kann ich eine Userform in Word als Zeichnungselement zeigen?Danke!Martin
14.06.2002 22:09:56
Thread-ID: 128823
4 Beiträge
Bild in Word Dokument
Fatih

Hallo Profis,
stehe mal wieder aufm Schlauch.
Ich möchte ein Bild, das vorher abgespeichert wurde, in ein Word Formular einfügen. Das Word Formular übernimmt vorher die Daten von der UserForm.
Ich bekomme bei der Shapes.AddPicture Anchor:=Selection.Range, Filename:=Bilddatei, Link...
13.07.2016 10:30:16
Thread-ID: 1504189
8 Beiträge
Anzeige
Einfügen Powerpoint als Bild
kai
... weiß zufällig jemand, wie der code lautet, um eine excel-objekt (aus excel) per makro in powerpoint als bild einzufügen? copy and paste funktioniert nicht, da es dann als excel-objekt eingefügt wird.


danke
kai
20.11.2003 14:05:30
Thread-ID: 341242
4 Beiträge
Access, Bild in Word einbinden
Michael

Hi,
hab in Access in einer Datenbank auch Bilder abgelegt und möchte die in ein Word-Document einfügen. Hab dazu ein Image eingefügt, wenn ich aber an die Access-Datenbank anbinden will, dann bekomme ich die Fehlermeldung
Fehler beim Zugriff auf Pfad/Datei
Quelltext sie wie folgt au...
02.07.2004 14:30:52
Thread-ID: 449464
5 Beiträge
Drehen von Bild oder Objekt in Word
hansi
Hallo,
möchte für Präsentation einzelne Tabellenausschnitte
verkleinert in Word-Dokument abspeichern und diese
dort als Bild oder ähnlich drehen.
Das ganze soll dann so aussehen, wie wenn man
einzelne Zeitungsausschnitte ausschneidet und diese
zum Teil übereinander legt.
Leider...
16.09.2004 09:48:18
Thread-ID: 485798
5 Beiträge
Anzeige
Excel in Word einbetten und drehen
Andreas

Hallo,
ich erstelle gerade eine Anleitung in Word und möchte dort eine Excel-Tabelle einbetten. Dieses geht über "Objekt einfügen" auch ohne Probleme. Nun möchte ich diese Tabelle um 90° drehen, damit sie im Hochformat der Anleitung größer wird. Ist dieses ohne weiteres möglich? Oder muß ic...
17.04.2007 12:02:22
Thread-ID: 862938
6 Beiträge
Diagramm nach PowerPoint exportiren als Bild
Randolf

Hallo,
ich möchte eine Grafik (Diagramm) aus Excel als Bild (Windows Metadatei) in PowerPoint einfügen. Erläuterung: In PPT soll nur noch die Grafik vorhanden sein, derzeit kann man mit Doppelklick die ExcelDatei und zugrundliegende Tabellen sehen.
Dies ist mein Script, wer kann mir e...
06.05.2007 16:12:00
Thread-ID: 867785
5 Beiträge
VBA PowerPoint Bilder einfügen
Abdel

Hallo Leute,
ich weiß dass das hier ein Excelforum ist, nur hab ich mir gedacht Ihr könntet mir vielleicht helfen.
Also ich habe im Internet ein kleines PowerPoint Quiz gefunden und möchte dieser Bild einfügen.
Ziel ist es für eine Schulklasse ein kleines Spiel / Quiz mit Fragen zu...
25.08.2007 12:41:00
Thread-ID: 900378
3 Beiträge
Bild von Zelle (Excel) in Word Kopfzeile
Zelle
Hallo, bin neu hier, recht unerfahren und hoffe, mit eurer Hilfe eine Lösung für mein Problem zu finden.
Es geht um Folgendens:
In einem Excel - Blatt befindet sich ein Bild in einer Zelle, dieses Bild soll per VBA in ein Word-Dokument in die Kopfzeile (Position links) eingefügt werden.
17.11.2021 11:32:32
Thread-ID: 1857113
4 Beiträge
Mit VBA-Excel ein Bild in Word einfügen
Flo
Guten Tag zusammen,

Aktuell habe ich eine Excel-Makro, welche ein Worddokument öffnet und Daten überträgt.

Jetzt habe ich in der Exceldatei ein Bild, welches ich gerne mit der Makro in das geöffnete Worddokument in die Kopfzeile oben rechts einfügen würde.
PS: Das Bild ist nic...
05.04.2023 13:58:21
Thread-ID: 1926886
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Shape Objekt in Excel drehen

Schritt-für-Schritt-Anleitung

Um ein Bild in Excel zu drehen, kannst Du VBA (Visual Basic for Applications) verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Bild einfügen: Füge ein Bild in Dein Excel-Arbeitsblatt ein. Du kannst dies mit dem folgenden Code tun:

    Call ActiveSheet.Shapes.AddPicture(Filename:=lPathCol & lPicNameCol, _
LinkToFile:=msoTrue, SaveWithDocument:=msoFalse, _
Left:=Columns(lPicColA).Left, Top:=Rows(int_Counter).Top, _
Width:=Application.CentimetersToPoints(bb), Height:=Application.CentimetersToPoints(bh))

  2. Bild drehen: Verwende den folgenden Code, um das Bild um 180 Grad zu drehen:

    ActiveSheet.Shapes.Range(Array("Picture 1")).Select
Selection.ShapeRange.IncrementRotation 180

  3. Alternative Lösung: Wenn Du den Namen des Shapes nicht kennst, kannst Du den Shape direkt in einer Variablen speichern und die Rotation darauf anwenden:

    Dim sh As Shape
Set sh = ActiveSheet.Shapes.AddPicture(Filename:=lPathCol & lPicNameCol, _
LinkToFile:=msoTrue, SaveWithDocument:=msoFalse, _
Left:=Columns(lPicColA).Left, Top:=Rows(int_Counter).Top, _
Width:=Application.CentimetersToPoints(bb), Height:=Application.CentimetersToPoints(bh))
sh.IncrementRotation 180

Häufige Fehler und Lösungen

  • Fehler: "Shape nicht gefunden"

    • Lösung: Stelle sicher, dass der Name des Shapes exakt mit dem Namen im Code übereinstimmt. Überprüfe auch, ob das Bild tatsächlich eingefügt wurde.

  • Fehler: "Ungültiger Index"

    • Lösung: Verwende anstelle von Range("F" & int_Counter) den exakten Namen des Shapes wie Range(Array("Picture 1")).

Alternative Methoden

Falls Du nicht mit VBA arbeiten möchtest, gibt es auch manuelle Methoden:

  1. Bild in Word drehen: Wenn Du das Bild in Word hast, kannst Du dieses einfach mit der Maus drehen. Klicke auf das Bild und ziehe am grünen Drehpunkt.

  2. PowerPoint: In PowerPoint kannst Du Bilder ebenfalls einfach drehen. Wähle das Bild aus und nutze den Drehpunkt, um das Bild um 90 Grad oder mehr zu drehen.

Praktische Beispiele

  • Beispiel 1: Drehen eines Bildes um 90 Grad

    ActiveSheet.Shapes.Range(Array("Picture 1")).IncrementRotation 90

  • Beispiel 2: Drehen eines Bildes um 270 Grad

    ActiveSheet.Shapes.Range(Array("Picture 1")).IncrementRotation 270

Diese Beispiele zeigen, wie flexibel Du mit der Drehung von Shapes in Excel umgehen kannst.

Tipps für Profis

  • Automatisierung: Du kannst die Rotation in eine Schleife einfügen, um mehrere Bilder gleichzeitig zu drehen.
  • Dynamische Bildnamen: Lagere die Bildnamen in ein Array aus, um einen flexibleren Zugriff zu ermöglichen.
  • Fehlerbehandlung: Implementiere Error-Handling in Deinem VBA-Code, um unerwartete Probleme zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich ein Bild in Excel um 90 Grad drehen?
Verwende den Code ActiveSheet.Shapes.Range(Array("Picture 1")).IncrementRotation 90.

2. Kann ich die Rotation auch vor dem Einfügen des Bildes einstellen?
Leider kannst Du die Rotation nicht vor dem Einfügen des Bildes einstellen. Du musst das Bild zuerst einfügen und dann die Rotation anwenden.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige