Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1164to1168
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1164to1168
1164to1168
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bild per VBA an Größe anpassen

Bild per VBA an Größe anpassen
amintire
Hallo alle zusammen,
würde gerne per VBA ein Bild anpassen lassen, das Bild sollte egal welche Pixel / Größe die haben,
genau in den Rahmen (siehe Beispiel) angepasst werden von der Größe, auch wenn sich das Bild in die Länge oder Höhe ziehen sollte.
Hat jemand eine Lösung?
Habe dies per Makro Aufzeichnen versucht gehabt, aber wenn die Bilder unterschiedlich groß sind werden die mit dem Makro auch immer unterschiedlich angepasst.
https://www.herber.de/bbs/user/70615.xls
Vielen Dank für Eure Hilfe
Lieben Gruß
Amina

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Bild-Position und -Größe per VBA anpassen
16.07.2010 11:26:57
NoNet
Hallo Amina,
leider war Deine Mappe leer, sie enthielt weder eine Grafik, noch einen "Rahmen" (es sei denn Du meintest den Zellrahmen um D2:N2 herum), noch einen VBA-Code.
Hier ein Code zum Anpassen der Position und Größe des Bildes "Picture 1" an den Bereich D2:N2 :
Sub BildAnpassen()
With ActiveSheet.Shapes("Picture 1") 'Name des Bildes bitte anpassen !
.LockAspectRatio = msoFalse
.Left = [D2].Left
.Top = [D2].Top
.Width = [D2:N2].Width
.Height = [D2].Height
End With
End Sub
Gruß, NoNet
AW: Bild-Position und -Größe per VBA anpassen
16.07.2010 12:30:33
amintire
Hallo NoNet,
der Code den ich aufgezeichnet habe war
Sub Makro1()
' Makro1 Makro
Selection.ShapeRange.IncrementLeft -667.5
Selection.ShapeRange.IncrementTop -240.75
Selection.ShapeRange.ScaleWidth 1.43, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.77, msoFalse, msoScaleFromBottomRight
End Sub

Leider müsste ich bei Deinem Code jedes mal den Namen des Bildes anpassen.
Hier wird immer unter Grafik aus Datei ein Bild hergenommen und soll per VBA / Makro an den Zellrahmen angepasst werden...
Gruß Amina
Anzeige
Shapes(1) anstatt Shapes("Picture 1")
16.07.2010 12:41:36
NoNet
Hallo Amina,
vergiß den Code, den Du aufgezeichnet hast, er ist hier absolut unbrauchbar (das liegt an der Schwäche des Makro-Rekorders - nicht an Dir ;-).
Wenn Du immer nur EIN Bild im Tabellenblatt hast, dann verwende meinen Code und ersetze einfach Shapes("Picture 1") durch Shapes(1) !
Gruß, NoNet

12 Forumthreads zu ähnlichen Themen

zellgroße an bildgröße anpassen
Karel

Hallo Forum,
ist es möglich das wenn ein bild in Spalte A eigefügt wird diese Zelle sich automatisch anpasst an der vorgebenen bildgröße " With ActiveSheet.Shapes.AddPicture(StBild, True, True, RaZelle.Offset(0, -1).Left, _
RaZelle.Offset(0, -1).Top, 140, 140)" ?
Wenn kein bild d...
22.07.2010 12:27:42
Thread-ID: 1168307
11 Beiträge
Anzeige
Alle Bilder im Sheet auf Originalgröße setzen
Gogs

Hallo,
ich habe viele Excel-Tabellen mit jeweils einigen Bildern drin.
Viele dieser Bilder wurden mal den Arbeitsblättern "gezogen" oder "gestaucht".
Jetzt sollen aber alle wieder auf die Originalgröße zurückgesetzt werden.
Um ein entsprechendes Makro zu erstellen, das ich dann...
28.02.2013 13:22:06
Thread-ID: 1301524
2 Beiträge
Grafik an Bildschirmgröße anpassen u. zurücksetzen
Thomas

Hi und frohes neues auch noch mal von mir :)
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...
07.01.2015 14:24:52
Thread-ID: 1401210
2 Beiträge
Anzeige
An Bildschirmgröße anpassen
Marcel
Hallo zusammen,
in meinem Excel-Sheet befindet sich ein PPT-Objekt.
Wie passe ich es per VBA an die Bildschirmgröße an?
Die Präsentation soll vergrößert und nach Klick auf Esc wieder verkleinert werden.
Bitte per VBA und NICHT per Doppelklick darauf.
VG
26.10.2016 09:55:59
Thread-ID: 1521691
3 Beiträge
Beim File öffnen Sheet ->Bildschirmgröße anpassen
ChrisW

Hallo Leute,
was muss ich in VBA eimntragen, damit beim öffnen eines Workbooks das Blatt "sheet2" auf dem Screen erscheint, und zwar in der Größe wie der Druckbereich eingestellt ist.
Die Anzeige soll auf jedem Rechner/Laptop, egal welche Einstellung und Bildschirmgröße vorhanden ist, d...
25.11.2016 10:09:56
Thread-ID: 1527070
4 Beiträge
VBA Bilder einfügen - Bildgröße
Achim

Hallo Zusammen,
irgendwie sehe ich den Wald vor lauter Bäumen nicht mehr.
Ich habe ein paar Makros geschrieben, die in eine Tabelle Bilder einfügen sollen.
Da die Bilder immer unterschiedliche Größe haben und ich mit einem Layout bei
den Excelblättern arbeite, gehe ich einen Um...
11.04.2017 12:42:11
Thread-ID: 1552294
5 Beiträge
tabelle in word einfügen und an seite anpassen
tobi

guten morgen, kann mir vielleicht jemand helfen? will eine excel tabelle in ein word dokument einfügen. ist auch kein problem soweit nur ist die tabelle fürs längstformat etwas zu lang. wie kann ich die tabelle verkleinert einfügen?
vielen dank schon mal und viele grüße
tobi
18.01.2006 09:41:36
Thread-ID: 720672
2 Beiträge
Userform an Bildschirmgröße anpassen
Henry
Hallo liebes Forum,
ich würde gerne meine Userform an eine variable Bildschirmgröße anpassen/zoomen.
Es gibt im I-Net zwar zahlreiche Beiträge hierzu; allerdings beziehen sich diese Beiträge immer auf die Bildschirmauflösung (nicht Bildschirmgröße).
Bsp.
Mein Notebook hat die Auflösu...
15.09.2021 09:01:09
Thread-ID: 1847512
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
10
2
1
1
2
2
3
4
1
3
2
3