Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1496to1500
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1496to1500
1496to1500
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bilder zoomen

Bilder zoomen
03.06.2016 11:10:56
Rookie
Hallo liebe VBA-Profies,
ich habe einen Code mit dem ich Bilder per Mausklick vergrößern und wieder verkleinern kann. Dieser funktioniert auch so wie ich es mir vorstelle. Mein Problem ist folgendes:
Wenn mehrere Bilder untereinander stehen und ich das erste Bild heranzoome, dann überlappen die anderen Bilder das vergrößerte Bild. Gibt es eine Möglichkeit, dass das vergrößerte Bild immer im Vordergrund steht?
Hier meine Beispieldatei:
https://www.herber.de/bbs/user/105953.xlsm
Vielen Dank für eure Hilfe
Mit besten Grüßen
Stefan

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bilder zoomen
03.06.2016 11:42:27
Mullit
Hallo,
müsste so gehen:
Sub ZoomIN_OUT()
 Dim LNG_COUNTER As Long
 Dim BOL_ZOOMED As Boolean
 BOL_ZOOMED = False
 For LNG_COUNTER = 0 To UBound(ARY_ZOOMED_PIC)
     If Application.Caller = ARY_ZOOMED_PIC(LNG_COUNTER) Then
         BOL_ZOOMED = True
         Exit For
     End If
 Next LNG_COUNTER

 If BOL_ZOOMED = True Then
     
     '//Bildname löschen
     ARY_ZOOMED_PIC(LNG_COUNTER) = ""
     
     '//ZoomOUT
     With ActiveSheet.Shapes(Application.Caller)
         .Height = .Height / LNG_FAKTOR
         .Width = .Width / LNG_FAKTOR
         Call .ZOrder(ZOrderCmd:=msoSendToBack)
     End With
   
 Else
     '//Bildname merken
     ReDim Preserve ARY_ZOOMED_PIC(UBound(ARY_ZOOMED_PIC) + 1)
     ARY_ZOOMED_PIC(UBound(ARY_ZOOMED_PIC)) = Application.Caller

     '//ZoomIN
     With ActiveSheet.Shapes(Application.Caller)
         .Height = .Height * LNG_FAKTOR
         .Width = .Width * LNG_FAKTOR
         Call .ZOrder(ZOrderCmd:=msoBringToFront)
     End With
 End If

 End Sub

Gruß, Mullit

Anzeige
AW: Bilder zoomen
06.06.2016 09:49:24
Rookie
Vielen Dank! Funktioniert super!

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige