Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1148to1152
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Spielerei: Bild von der Mitte aus vergrößern

Spielerei: Bild von der Mitte aus vergrößern
der
Hallo zusammen,
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.

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Spielerei: Bild von der Mitte aus vergrößern
14.04.2010 14:21:45
der
Hallo Hajo,
ich probiere das nachher zu Hause mal aus.
Kann die Seite auf der Arbeit nicht öffnen.
Danke und Gruß
Stefan
AW: Spielerei: Bild von der Mitte aus vergrößern
14.04.2010 14:35:12
der
Hi Stefan,
eine Möglichkeit:
Sub BildZoomen()
Dim doZaehler As Double
Dim shBild As Shape
Set shBild = ActiveSheet.Shapes(1)
With shBild
.Top = .Top + .Height / 2
.Left = .Left + .Width / 2
.Height = 0
For doZaehler = 0.1 To 1 Step 0.002
.ScaleHeight doZaehler, msoTrue, msoScaleFromMiddle
.ScaleWidth doZaehler, msoTrue, msoScaleFromMiddle
DoEvents
Next doZaehler
End With
Set shBild = Nothing
End Sub



Anzeige
AW: Spielerei: Bild von der Mitte aus vergrößern
14.04.2010 14:59:57
der
Hi Beverly,
genau das hatte ich gesucht. Habe es ein wenig angepasst und es funktioniert prima.
Besten Dank und Gruß
Stefan K.

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige