Bild bei Klick vergrößern
11.12.2020 11:43:01
Thomas
Ich hatte am 11-11-2020 eine Super Hilfe bekommen, leider ist nun ein Problem aufgetreten, ich finde aber keine Möglichkeit auf diesen Beitrag zu antworten ...
https://www.herber.de/forum/archiv/1792to1796/t1792456.htm#1792504
Mit dem VBA Code kann ich nun sehr viele Bilder einfügen, die Funktion "Bild_BeiKlick" (das Bild vergrößern und beim zweiten Klick wieder verkleinern) klappt nicht mehr (es wird immer nur verkleinert)
Bei dem ursprünglichen VBA Code wurde dieses Modul aufgerufen:
Option Explicit ' Variablendefinition erforderlich
Option Private Module ' damit Makro nicht sichtbar bei Makro
Public Const DoFaktor = 5 ' Faktor Bildvergrößerung
Sub Bild_BeiKlick()
'* H. Ziplies *
'* 02.12.07 *
'* erstellt von Hajo.Ziplies@web.de *
'* http://Hajo-Excel.de/
Dim ObB As Object ' Variable für Bild
Set ObB = ActiveSheet.Shapes(Application.Caller) ' das geklickte Bildobjekt _
auf Variable schreiben
If ObB.Height = ActiveCell.Height - 2 Then ' Bildhöhe laut Change _
Ereignis
ObB.ScaleWidth DoFaktor, msoFalse, msoScaleFromTopLeft ' Faktor bezogen auf eingefü _
gtes Bild
ObB.ScaleHeight DoFaktor, msoFalse, msoScaleFromTopLeft ' Faktor bezogen auf eingefü _
tes Bild
ObB.ZOrder msoBringToFront ' Bild in den Vordergrund
Else
ObB.ScaleWidth 1 / DoFaktor, msoFalse, msoScaleFromTopLeft ' Faktor bezogen auf eingefü _
gtes Bild
ObB.ScaleHeight 1 / DoFaktor, msoFalse, msoScaleFromTopLeft ' Faktor bezogen auf eingefü _
gtes Bild
ObB.ZOrder msoSendToBack ' Bild in den Hintergrund
End If
Set ObB = Nothing ' Variable leeren
End Sub
kann mir jemand sagen wie ich das Bild wieder vergrößern/verkleinern kann?