Grafik an Bildschirmgröße anpassen u. zurücksetzen
07.01.2015 14:24:52
Thomas
Ich hab folgendes Problemchen, ich hab mehrere Grafiken in einer Excel Datei, diese sind an bestimmten Positionen, beim anklicken sollen diese auf die Bildschirmgröße angepasst werden ( um sie besser zu erkennen ) und beim erneuten klicken wieder auf seine Standard Größe und Position angepasst werden.
Mein Ansatz bisher sieht wie folgt aus :
Public Bildx, Bildy, Bildxx, Bildyy As Integer
Sub gross()
With ActiveSheet.Shapes(Application.Caller)
.LockAspectRatio = msoTrue
.Left = Bildx
.Top = Bildy
.Height = Bildyy
.Width = Bildxx
.OnAction = "klein"
End With
End Sub
Sub klein()
With ActiveSheet.Shapes(Application.Caller)
Bildx = ActiveSheet.Shapes(Application.Caller).Left
Bildy = ActiveSheet.Shapes(Application.Caller).Top
Bildxx = ActiveSheet.Shapes(Application.Caller).Width
Bildyy = ActiveSheet.Shapes(Application.Caller).Height
.LockAspectRatio = msoTrue
.Height = ActiveWindow.Height
.Width = ActiveWindow.Width
.Left = 0
.Top = 0
.OnAction = "gross"
End With
End Sub
1. Die Grafik wird nicht an den Bildschirm angepasst ( Zwar vergrößert aber immer noch zu klein )
2. Die Grafik steht nicht im Vordergrund, andere Grafiken sind darüber ( was sie ja auch sein sollen, aber nicht wenn ich es vergrößere, also noch dem verkleinen soll der Ursprüngliche zustand hergestellt werden ).
Hat jemand eine Idee oder schon eine Lösung dafür ?
Vielen dank