Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1148to1152
1148to1152
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spielerei: Bild von der Mitte aus vergrößern

Forumthread: 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.
Anzeige

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:11:38
der
Hallo Stefan,
für eine Userform habe ich das schon mal gemacht.
http://hajo-excel.de/chCounter3/getfile.php?id=115
vielleicht ist dies ein Ansatz.

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.
;

Forumthreads zu verwandten Themen

Bild von der userform in tabelle einfügen
der

Hallo Excelsfans,
ich habe auf einer userform ein bild (image). dieses möchte ich gern als bild in eine zelle einfügen
irgendwie so
cells(1,1).insert.picture=image1.picture
geht sowas?
gruß rocky
14.06.2010 19:14:52
Thread-ID: 1161836
3 Beiträge
Summenbildung je Spalte abhängig von einer Userein
einer

Hallo zusammen,
folgendes Problem habe ich mit einer Summenbildung je Spalte abhängig von einer Usereingabe. Bitte beigefügtes Excel öffnen.
Ziel ist es die Summe je Abteilung (Spalte B) für die Spalten C bis I zu bilden. Dies bekomme ich grundsätzlich selbst hin, die Schwierigkeit bes...
06.11.2011 12:08:07
Thread-ID: 1236807
7 Beiträge
Bilderanzeige abhängig von Eingabe in anderem Feld
Eingabe

Hallo Zusammen,
ich habe 3 Bilder, in Tabelle 1 soll in Zelle E71, je nach Wert(Eingabe) in Feld E27 das richtige, dazugehörige Bild erscheinen.
Beispiel:
Wenn E27="morgen", dann Bild 1
Wenn E27="mittag", dann Bild 2
Wenn E27="abend", dann Bild 3
Das alles möglichst ohn...
22.02.2016 12:03:09
Thread-ID: 1477198
7 Beiträge
Bilder von einem zum andern Blatt kopieren
einem

Hoi Zusammen
Stehe mal wieder vor dem Berg....
Ich möchte Bilder "Grafiken" vom dem einen Blatt ins andere Blatt kopieren und zugleich der Zellen - Grösse dort anpassen.
Das Makro in der Beilage läuft wunderbar, aber eben mit dem Import der Bilder von der PC-HD her.
Es wäre ab...
30.11.2017 12:00:34
Thread-ID: 1594606
11 Beiträge
Bild ausblenden wenn der Mauszeiger darüber ist
Meissner

Eine Frage ins Forum:
ich habe in eine Excelliste über mehrere Zellen ein Bild gelegt.
Einen Hinweis, der auf eine Besonderheit aufmerksam macht.
Logischerweise sind die Zellen unter dem Bild nicht mehr sichtbar, zumindest nicht richtig, da ja das Bild darüber ist.
Gibt es eine...
25.07.2019 10:34:06
Thread-ID: 1703998
3 Beiträge
Anzeige
Ändern von Bilddateien einer Image-Box
Znurk

Hallo!
Ich habe ein Problem mit dem ich absolut nicht weiterkomme. Ich habe eine Image-Box erstellt, die auf das MouseDown Ereignis reagiert. Kurz gesagt: Ich klicke irgendwo in die Box und je nach Position des Mauszeigers erscheint ein anderes GIF. Das funktioniert im Prinzip auch, nur lei...
13.02.2004 14:45:59
Thread-ID: 382031
2 Beiträge
Bildschirm Split von EINER Tabelle
Ulf
Moinsens,
wie könnte folgendes realisiert werden?
das ist:
Arbeitsmappe mit Tabellenblättern A, B, C
das soll sein:
Excel-Bildschirm in 2 Fenster Teilen.
Fenster 1 zeigt A
Fenster 2 zeigt B
A und A anzeigen geht.
Aber wie A + B auf einem Bildschirm?
Datei doppelt g...
26.02.2004 19:31:44
Thread-ID: 389471
3 Beiträge
Hilfetext bei Eingabezelle
Jörg

Hallo Freaks,
ich möchte per Mausclick auf eine Eingabezelle den zugehörigen Hilfetext einblenden lassen. Von der Verwendung von Kommentaren möchte ich absehen. Weiß jemand Rat?
Vielen Dank vorweg
Jörg
02.11.2004 15:10:24
Thread-ID: 510620
4 Beiträge
Anzeige
Auf UF ein "Bild" von Excel einer Textbox..
Excel

Hallo Zusammen,
ich möchte eine TextBox auf eine UF darstellen, die UF soll aufgerufen werden können dann kann man das Bild auf der UF sehen als Hinweis wie selektiert/makiert werden soll.
Z.B. Soll das Datum 02.03.2005 Nur 02 slektiert dargestellt werden.
Wie kann ich die Hilfe...
15.09.2005 20:29:29
Thread-ID: 667907
13 Beiträge
Bewegen von Kreisen mit der Maus
Kreisen

Liebe Forumsmitglieder,
ich brauch eure Hilfe.
Ich habe bisher leider keinen passenden Code gefunden.
Aufgabe:
Ich möchte mit der Maus einen Kreise verschieben. Es sind mehrere Kreise gezeichnet, die zum Teil ineinander liegen können. (Vgl. Grafik: Kreis 1 in Kreis 0)
31.08.2020 11:18:38
Thread-ID: 1779590
4 Beiträge
Bild von einen shape zum anderen kopieren
Rahan
Hey liebe Community,

könnt ihr mir helfen? Ich habe hier ein eingebettes Foto. Das schein in ein shape object zu stecken. Ich würde gerne das Bild nehmen und in eine Form wie die Träne den Hintergrund packen. Manuell geht das einfach mit Füllung Bild aus Zwischenablage. Aber mit VBA bin ich...
15.09.2023 15:03:54
Thread-ID: 1946253
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige