Ich habe folgendes Problem!
Mit dem unten stehenden Code, lasse ich in einem Tabellenblatt Bilder vergrößern.
Ich hätte aber gerne das diese Bilder bei anklicken mittig im Bildschirm maximal vergrößert bzw.angezeigt werden
und dann bei nochmaligen Mauseklick wieder an ihren ursprünglichen Platz im Tabellenblatt zurückgehen.
Kann mir da bitte jemand helfen?
MfG Firefox19
Sub GrossKlein()
Dim objShp As Shape
Dim f As Single, a As Variant
f = 1.6 'Vergößerungsfaktor
Set objShp = ActiveSheet.Shapes(Application.Caller)
If objShp.AlternativeText = "" Then
With objShp
.AlternativeText = .Width & ";" & .Height
.ScaleWidth f, msoFalse
.ScaleHeight f, msoFalse
.ZOrder msoBringToFront
End With
Else
With objShp
a = Split(.AlternativeText, ";")
.Width = a(0)
.Height = a(1)
.AlternativeText = ""
End With
End If
Set objShp = Nothing
End Sub
|