zoomen Bild
15.01.2020 12:59:49
Dirk
ich hoffe Ihr könnt mir bei meinem Problem weiterhelfen. Ich habe ein Tabellenblatt, was durch Doppelklick auf verschiedener Bereiche bestimmte Aktionen durchführen soll. In der einen Range befinden sich nun auch noch Bilder. Diese Bilder würde ich gerne durch Doppelklick vergrößern. Mein Code sieht so aus:
Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Intersect(Target, Range("A1:BO40")) Is Nothing Then
Call Formular
ElseIf Not Intersect(Target, Range("A40:BO100")) Is Nothing Then
Call Meilenstein
Else
Call Bild_aendern
End If
End Sub
Die Bereiche funktionieren. Leider funktioniert der Doppelklick auf das Bild zum zoomen nicht. Ich kann die Grafik leider auch nicht direkt ansprechen, da diese sich immer ändert bzw. der Name sich immer ändert. Mein Code den ich bisher geschrieben habe lautet:
Sub Bild_aendern()
Dim objShp As Shape
Dim f As Single, a As Variant
f = 2 'Vergößerungsfaktor
Set objShp = ActiveSheet.Shapes(Application.Caller)
If objShp.AlternativeText = "" Then
With objShp
.AlternativeText = .Width & ";" & .Height
.ScaleWidth f, msoFalse
.ScaleHeight f, msoFalse
End With
Else
With objShp
a = Split(.AlternativeText, ";")
.Width = a(0)
.Height = a(1)
.AlternativeText = ""
End With
End If
Set objShp = Nothing
End Sub
Er macht leider gar nichts. Wenn ich auf das Bild mit einem Doppelklick drücke, dann springt er einfach zu Bildformat. Hat irgendjemand eine Idee, wie ich das lösen kann?
Danke schonmal im Voraus!