Spielerei: Bild von der Mitte aus vergrößern
der
in meiner Datei wird per workbooks.open und Sheets("2010").Shapes("Picture 3").Visible = True ein Startbild eingeblendet.
Das Bild kann ich bei gedrückter Strg-Taste von den äußeren Punkten zur Mitte hin zusammenschieben verkleinern. Dieses habe ich mit dem Makro-Recorder aufgezeichnet und erhalte folgenden Befehl:
ActiveSheet.Shapes("Picture 3").Select
Selection.ShapeRange.ScaleWidth 0.03, msoFalse, msoScaleFromMiddle
Selection.ShapeRange.ScaleHeight 0.03, msoFalse, msoScaleFromMiddle
Das scheint ja jetzt ein skalierter Wert zu sein. Kann man das so umstricken, dass ich den Wert einer For-Next-Schleife als Größenwert einsetze, damit das Bild langsam von der Mitter heraus größer wird ?
Vielen Dank für Eure Hilfe.
Gruß
Stefan K.