Bild in Zelle in einem separten Fenster vergrößert anzeigen

17.04.2026 09:55:12

Thomas Schmidt

Hallo,

ich habe eine Testdatei erstellt, in der sich in der Zelle D9 ein eingefügtes Bild befindet. Mein Ziel war es, per Doppelklick auf das Bild zu erreichen, dass dieses in einem separaten Fenster vergrößert angezeigt wird. Das Fenster sollte sich anschließend entweder über das „X“ oder über einen separaten „Schließen“-Button wieder schließen lassen.

Ich habe bereits herausgefunden, dass sich dies nur mithilfe eines Makros umsetzen lässt. Daher habe ich den Microsoft Copilot gebeten, mir ein entsprechendes Makro zu erstellen. Nach zahlreichen Fehlermeldungen und mehreren Korrekturversuchen durch die KI habe ich diese Unterstützung jedoch aufgegeben.

Nun wende ich mich an euch mit der Bitte, das erstellte Makro einmal anzusehen und mir dabei zu helfen, es funktionsfähig zu machen.

https://www.herber.de/bbs/user/180586.xlsm

AW: Bild in Zelle in einem separten Fenster vergrößert anzeigen

17.04.2026 12:35:57

Hans Werner Herber

Hallo Thomas,

als einfache Lösung, die meist ausreicht. Weise dem Bild den folgenden Code zu:

Sub ZoomBild()

    Dim pic As Shape

    

    Set pic = ActiveSheet.Shapes(Application.Caller)

    

    If pic.Height = Range("F9").RowHeight Then

        pic.ScaleWidth 5, msoFalse, msoScaleFromTopLeft

        pic.ScaleHeight 5, msoFalse, msoScaleFromTopLeft

        pic.ZOrder msoBringToFront ' In den Vordergrund bringen

    Else

        pic.Height = Range("F9").RowHeight

    End If

End Sub

Gruß hans

AW: Bild in Zelle in einem separten Fenster vergrößert anzeigen

17.04.2026 12:57:37

Thomas Schmidt

Hallo Hans Werner,

vielen Dank für deine schnelle Hilfe. Ich bin im VBA nicht bewandert. Daher noch eine Verständnisfrage an dich.
Soll ich all meine eingetragenen Codes im VBAProjekt in
- Tabelle1
- UserForm1
- Modul1
löschen?

Trage ich dann deinen Code in
VBAProjekt
- Tabelle1 ein?

AW: Bild in Zelle in einem separten Fenster vergrößert anzeigen

17.04.2026 13:23:35

Hans Werner Herber

Hallo Thomas,

fast genau so:
- alle Codes und UserForm löschen
- meinen Code in ein Standardmodul (z.B. 'Modul1') eintragen
- das Bild mit der rechten Maustaste anklicken und ihm das Makro zuweisen

Gruß hans

AW: Bild in Zelle in einem separten Fenster vergrößert anzeigen

17.04.2026 13:56:57

Thomas Schmidt

Hallo Hans,

deine Lösung gefällt mir auch sehr.
Vielen Dank!!!

Ich muß jetzt mal sehen, welches Makro ich verwende.

VG
Thomas

Im Anhang ist...

17.04.2026 12:50:22

Case

Moin Thomas, :-)

... ein Beispiel. Um dir den Tag etwas zu "versüßen" ist die Datei mit einem Kennwort versehen. ;-)

Das Kennwort hat 8 Stellen. An der 5ten Stelle den Buchstaben Großschreiben. ;-)

1. Stelle:
Der 3. Buchstabe (Nachname) des 14. Präsidenten der USA.

2. Stelle:
Die 2. Ziffer der 47. Primzahl.

3. Stelle:
Der letzte Buchstabe der Hauptstadt von Japan.

4. Stelle:
Die Anzahl der Kontinente auf der Erde.

5. Stelle (Buchstabe im Kennwort Großschreiben):
Der 1. Buchstabe des chemischen Elements mit der Ordnungszahl 26.

6. Stelle:
Die erste Zahl der Jahreszahl der deutschen Wiedervereinigung.

7. Stelle:
Der 4. Buchstabe des Wortes "Excel".

8. Stelle:
Die Anzahl der Planeten in unserem Sonnensystem.

Wenn du nicht klar kommst - melde dich. ;-)

https://www.herber.de/bbs/user/180588.xlsb

Das Bild wird über "Doppelklick" vergrößert angezeigt. Beim vergrößerten Bild - wieder ein Doppelklick bringt dich zurück, oder ESC drücken - nicht das "X" rechts oben, das schließt die Datei. ;-)

Servus
Case

AW: Im Anhang ist...

17.04.2026 13:25:17

MCO

Super gelöst!

(Für irgendwas muss die KI ja gut sein)

Lass uns die einzelnen Schritte kurz durchgehen:

Pierce → 3. Buchstabe = e
Primzahl = 211 → 2. Ziffer = 1
Tokio → letzter Buchstabe = o
Kontinente = 7
Eisen → 1. Buchstabe = E (groß!)
1990 → erste Zahl = 1
Excel → 4. Buchstabe = e
Planeten = 8

👉 Kennwort: e1o7E1e8

Also...

17.04.2026 13:42:22

Case

😉

AW: Im Anhang ist...

17.04.2026 13:34:31

Thomas Schmidt

Hey Hey Hey Case,

nice sehr schön Idee, deine Passwortverschlüsselung 😁
Ich habe es hinbekommen die Datei zu öffnen und zu bedienen.
Ich habe gesehen, dass du zwei Tabellen benutzt. Die Tabelle 2 ist bei dir ausgeblendet.
Muß dass so sein? Oder kann ich sie löschen / freigeben?

Darf ich fragen wo du jumpen tust?

Im zweiten...

17.04.2026 13:47:04

Case

Moin Thomas, :-)

... Tabellenblatt wird das Bild angezeigt. Das brauchst du. Könnte man wahrscheinlich auch auf dem gleichen Tabellenblatt machen, aber so ist es bequemer. ;-)

Und zum "jumpen" - ich hänge in der Regel bei einem mit dran "Tandem". Bin zu alt (und alleine geht mir der Arsch auf Grundeis), um das noch zu betreiben. ;-)

Servus
Case

AW: Im zweiten...

17.04.2026 14:02:18

Thomas Schmidt

Hi Case,

auch dir danke ich, für deine Hilfe.

...Und immer schön daran denken "High is life" 😉
VG
Thomas

AW: Bild in Zelle in einem separten Fenster vergrößert anzeigen

17.04.2026 13:18:19

MCO

Moin!

Ich weiß nicht, ob es an deinem Beispielbild liegt, aber ich sehe da auch gewisse Schwächen:
Wenn es immer nur 1 Bild ist, dann: Geschenkt.
Solltest du aber etliche Bilder einfügen, ist entweder die Qualität der Bilder mies (aber klein) und auch vergrößert wird die nicht besser (aber dein Code vergrößert nicht), oder die Datei wir wahnsinnig groß, da die Bilder ja auch entsprechend Speicher belegen.

Wie auch immer. Als Fehler im Code hab ich identifiziert, das das png-Format nicht funktioniert, auch wenn MS das selbst anbietet. Außerdem wird Target.range irgendwie nicht genommen. Da es aber nach deinem Code immer die gleiche Range ist, hab ich das angepasst.

Versuchs mal
https://www.herber.de/bbs/user/180590.xlsm

Gruß, MCO

AW: Bild in Zelle in einem separten Fenster vergrößert anzeigen

17.04.2026 17:29:21

snb

oder:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

  If Target.Address = "$D$9" Then

    M_ZoomBild

    Cancel = True

  End If

End Sub

Sub M_ZoomBild()

  With ActiveSheet.Shapes(1)

    If .Height = Range("F9").RowHeight Then

      .ScaleWidth 5, 0, 0

      .ScaleHeight 5, 0, 0

      .ZOrder 0

    Else

      .Height = Range("F9").RowHeight

    End If

  End With

End Sub

AW: Bild in Zelle in einem separten Fenster vergrößert anzeigen

20.04.2026 09:21:46

Thomas Schmidt

Hallo SNB,

ich danke dir auch für deinen Lösungsvorschlag.
Ich habe ihn ausprobiert. funktioniert 👌

Jetzt muß ich mal schauen, wie ich meine Exceltabelle aufsetzen werde.

VG
Thomas

Warum eigentlich VBA?

18.04.2026 11:38:58

RPP63

Moin!
Du hast Excel 365!
Dann solltest Du auch dessen Möglichkeiten nutzen:
• Einfügen → Illustrationen → Bilder → In Zelle platzieren
Jetzt wird in die Zelle ein Thumbnail eingepasst.
Markierst Du die Zelle, erscheint eine Schaltfläche neben der Zelle.
Klickst du einmal darauf, wird das Bild in Originalgröße angezeigt.
Nochmaliger Klick schließt das Bild wieder.

Gruß Ralf

AW: Warum eigentlich VBA?

19.04.2026 18:32:20

Alwin Weisangler

@Ralf,

in O2024 muss man im Sidemenü "Vorschaubild Anzeigen" anklicken. Ich vermute, dass der Button nur in O365 gesetzt wird.

Gruß Uwe

AW: Warum eigentlich VBA?

19.04.2026 20:07:07

snb

Oder Comment, Hintergrund Bild

AW: Warum eigentlich VBA?

20.04.2026 09:12:27

Thomas Schmidt

Hallo Ralf,

deine beschriebene Funktion hatte ich schon ausprobiert. Im Prinzip macht sie das, was ich brauche. Allerdings wollte ich das Bild an einer bestimmten Stelle platzieren. Dies läßt aber diese Funktion nicht zu. Deshalb hatte ich über eine Makrolösung nachgedacht.

Vielen Dank für deinen Input.
VG
Thomas

AW: Warum eigentlich VBA?

19.04.2026 18:50:59

RPP63

Moin Uwe!
In 365 gibt es ebenfalls Rechtsklick → Bild in Zelle → Vorschau anzeigen
Dies zeigt eine verkleinerte Version des Originals in einem Fenster ohne ❌
Klick außerhalb lässt das Fenster verschwinden.
Prinzipiell genau das, was der TE wünscht.
Allerdings hat es diese Aktion wohl noch nicht in den VBA-Objektkatalog geschafft.

Gruß Ralf

AW: Bild in Zelle in einem separten Fenster vergrößert anzeigen

17.04.2026 13:53:28

Thomas Schmidt

Hi MCO,

ja du hast recht, das Bild im separten fenster ist sehr klein.
Es liegt an dem Beispielbild was ich verwendet hatte.

Der 2. Punkt mit den vielen Bildern und der darausresulierenden Dateigröße ist nicht unwichtig.

Ich danke dir für deine Hilfe. Die 3 Lösungen helfen mir auf alle Fälle, das passende Makro einzusetzen.

Danke MCO

Bild in Zelle in einem separten Fenster vergrößert anzeigen

Forumthread: Bild in Zelle in einem separten Fenster vergrößert anzeigen

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Bild in Zelle in einem separten Fenster vergrößert anzeigen

Forumthread: Bild in Zelle in einem separten Fenster vergrößert anzeigen

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread