Excel Bild immer an gleicher Stelle

Sailor

unread,

May 12, 2010, 2:24:01 AM5/12/10

to

Moin, moin zusammen!

Ich möchte z.B. in Zelle A34 ein Bild welches sich täglich ändert in
bestimmter Größe einfügen. Das Bild wird täglich neu erstellt und besitzt den
sinnigen Namen "Bild.jpg". Als Namen habe ich dem Bild "Bild1" zugewiesen.

Habe mir folgenden Makro gebastelt, welcher mich aber immer wieder in der
Form überlistet, dass im Bild immer wieder die Eigenschaftseinstellung
"Ansichtsverhältnis sperren" und "Relativ zur Bildgröße" eingeschaltet ist.
Wie kann ich dies in folgendem Makro ausschalten:

Sheets("Tabelle1").Select
ActiveSheet.Shapes("Bild1").Select
Selection.Delete
Range("A34").Select
ActiveSheet.Pictures.Insert("Bild.jpg").Select
Selection.ShapeRange.Height = 210
Selection.ShapeRange.Width = 470
Selection.ShapeRange.Left = 0
Selection.ShapeRange.Top = 448
Selection.Name = "Bild1"

Also das Bild soll im Endeffekt 21x470 groß sein. Ansonsten funktioniert der
Makro.

Ein schlauer und einfacher Befehl ist gesucht. Habe nur geringe VBA-Erfahrung.
--
Thx
Sailor

Andreas Killer

unread,

May 12, 2010, 3:52:00 AM5/12/10

to

Sailor schrieb:

> Ich möchte z.B. in Zelle A34 ein Bild welches sich täglich ändert in
> bestimmter Größe einfügen. Das Bild wird täglich neu erstellt und besitzt den
> sinnigen Namen "Bild.jpg". Als Namen habe ich dem Bild "Bild1" zugewiesen.

...

> Also das Bild soll im Endeffekt 21x470 groß sein.

...

> Ein schlauer und einfacher Befehl ist gesucht. Habe nur geringe VBA-Erfahrung.

Dann ist meine Empfehlung das Du nach Möglichkeit ohne Select /
Selection arbeitest, das produziert früher oder später Fehler.
Außerdem ist es langsam und "flackert mit dem Bildschirm". Zu 99,9%
braucht man es nicht.

Andreas.

Sub Test()
Dim S As Shape, P As Picture
'In Tabelle1
With Sheets("Tabelle1")
'Fehlerbehandlung aus falls Bild nicht da
On Error Resume Next
'Bild löschen
.Shapes("Bild1").Delete
'Fehlerbehandlung ein
On Error GoTo 0
'Bild einfügen
Set P = .Pictures.Insert("Bild.jpg")
'Namen vergeben
P.Name = "Bild1"
'Shape-Object vom Bild holen
Set S = .Shapes("Bild1")
'Seitenverhältnis aus
S.LockAspectRatio = msoFalse
'Größe setzen
S.Height = 210
S.Width = 470
'Positionieren
With .Range("A34")
S.Top = .Top
S.Left = .Left
End With
End With
End Sub

Sailor

unread,

May 12, 2010, 9:18:01 PM5/12/10

to

Hallo Andreas,

Hervorragend! Hat auf Anhieb bestens geklappt.

Jetzt habe ich noch ein weiteres Problem, evtl. kannst Du mir bei der
Problembeseitigung helfen, damit ich beruhigt den Vatertag genießen kann:

Das Bild eingebettet in Tabelle1, sowie ein kleines Worddoc mit der
Namensbezeichnung "TMB" (tägl. Marktbericht), ebenfalls eingebettet in
gleicher Tabelle in Zelle "A6", bilden die Basis für eine tägliche Preisliste
die via WinFax und/oder eMail an einen augewählten Kundenkreis geht. Jeder
Kunde hat einen extra TAB, welcher durch Verweise zu Tabelle1 aktualisiert
werden.

Nun müssen nur noch aus der "Tabelle1" das Worddoc (Zelle "A6") und das Bild
(Zelle "A34") in das jeweilige "Kunden-Tab" in Kopie übertragen werden. Beim
Worddoc darf es keine Verknüpfung sein, da u.U. individuelle und
kundenbezogene Textveränderungen erfolgen können/müssen. Die Kunden-Tabs
können bis zu 30 und mehr Tabs sein. Die individuellen Kundendaten werden aus
einer Kundenmatrix via SVerweis eingefügt.

Ich hoffe, dass ich das verständlich geschrieben haben.

Kannst Du oder irgend ein anderer aus dem www-Excel-Orbit mit kurzen
VBA-Codes helfen? DANKE im voraus!

Nochmals, ich bin kein VBA-Künstler.
--
Thx
Henning (Rocholl)
alias "Sailor"

"Andreas Killer" schrieb:

> Sailor schrieb:
>
> > Ich möchte z.B. in Zelle A34 ein Bild welches sich täglich ändert in
> > bestimmter Größe einfügen. Das Bild wird täglich neu erstellt und besitzt den
> > sinnigen Namen "Bild.jpg". Als Namen habe ich dem Bild "Bild1" zugewiesen.

> ....

> > Also das Bild soll im Endeffekt 21x470 groß sein.

> ....

> .
>

23.08.2019, 13:06	#1
Neuer Benutzer   Registrierung: 13.05.2015 Karma:	VBA - Bild an gleicher Stelle positionieren? Moin Moin, mehrere Bilder werden �ber ein "arrShape(index)" und einem "Select Case index" auf einem Excel-Sheet positioniert: Case 1: arrShape(1).Top = abstandTop arrShape(1).Left = abstandLinks arrShape(1).Select Selection.ShapeRange.LockAspectRatio = msoTrue ' Bild wird proportional auf bildbreite skaliert Selection.ShapeRange.Width = bildBreite Case 2: arrShape(2).Top = abstandTop arrShape(2).Left = abstandLinks + bildBreite + abstandRand arrShape(2).Select Selection.ShapeRange.LockAspectRatio = msoTrue ' Bild wird proportional auf bildbreite skaliert Selection.ShapeRange.Width = bildBreite Case 3: ... etc. l�uft! das erste eingef�gte Bild hat diese Zuschnittposition: Breite: 7,51 cm H�he: 10,09 cm Links: 0,34 cm Oben: 3,93 cm Drehung: 0� wenn (warum auch immer) dieses Bild vorher im Ordner um 180� gedreht wird, hat dieses Bild diese Zuschnittposition: Breite: 7,51 cm H�he: 10,09 cm Links: 18,5 cm Oben: 28,23 cm Drehung: 180� meine Frage, warum ver�ndern sich die linke und obere Postion so massiv? Wie kann ich das verhindern? Andreas

23.08.2019, 22:30	#2
MOF Meister   Registrierung: 02.10.2003	Hallo Andreas, hast du mal im Einzelschritt geschaut, welche Werte die Variablen haben? __________________ Sch�ne Gr��e Berni

24.08.2019, 09:42	#3
MOF Meister   Registrierung: 19.08.2018	Hallo, was verstehst du unter "Im Ordner" - tats�chlich einen Explorerordner ? Wie drehst du das Picture ? Das Picture erscheint aber trotzdem an der richtigen Stelle ? Sabina __________________ Sabina Wer auch weiter Hilfe erwartet, sollte sich nicht zu schade sein, ein kurzes Feedback zu geben. War der Post f�r dich hilfreich, darf er von dir auch gerne positiv bewertet werden. Bei mir l�uft Win 10 64-Bit - Office 2016 Pro Plus 32-Bit und Office 2019 Pro Plus 32-Bit, Office 2021 Pro Plus 32-Bit

24.08.2019, 11:10	#4
MOF Meister   Registrierung: 02.02.2016 Karma:	Moin, meine Vermutung: Das Bild ist wesentlich gr��er als Du glaubst, n�mlich ungef�hr 17 cm hoch und 16 cm breit. Warum zeigst Du den Code? __________________ Gru� Ralf

26.08.2019, 08:03	#5
Threadstarter  Neuer Benutzer   Registrierung: 13.05.2015 Karma:	Moin Moin Berni, hast du mal im Einzelschritt geschaut, welche Werte die Variablen haben? mit "Rotation = 0�" im Explorer Ordner .Top = 104,881 .Left = 8,503 .Width = 213 mit Rotation = 180� im Explorer Ordner (da manche gelieferten Bilder auf dem Kopf stehen...) .Top = 104,881 .Left = 8,503 .Width = 213 Mir ist am WE aufgefallen, das es etwas mit den Markierungspunkten des Bildes in Excel zu tun haben muss: 8 Markierungspunkte hat ein Bild in Excel wenn es markiert wird, bei einem Bild mit Rotation = 0� wird die Bildbreite mit dem Markierungspunkt "links oben" skaliert, bei einem Bild mit Rotation = 180� wird die Bildbreite mit dem Markierungspunkt "rechts unten" skaliert deswegen die unterschiedliche Positionierung des Bildes. Wie spreche ich denn per VBA diese Markierungspunkte an? Andreas

26.08.2019, 08:04	#6
Threadstarter  Neuer Benutzer   Registrierung: 13.05.2015 Karma:	Moin Moin Sabina, was verstehst du unter "Im Ordner" - tats�chlich einen Explorerordner ? "der Order, wo die Bilder sich befinden!" Wie drehst du das Picture ? "im Ordner Bild markieren, rechte Mausetaste und Nach rechts drehen" Das Picture erscheint aber trotzdem an der richtigen Stelle ? "das Bild mit Rotation = 0� JA, das Bild mit Rotation = 180� NEIN" Andreas

26.08.2019, 08:05	#7
Threadstarter  Neuer Benutzer   Registrierung: 13.05.2015 Karma:	Moin Moin Ralf, meine Vermutung: Das Bild ist wesentlich gr��er als Du glaubst, n�mlich ungef�hr 17 cm hoch und 16 cm breit. "27,94cm x 20,96cm ", wird �ber die Variable 'bildBreite = Application.CentimetersToPoints(7.5)' entsprechend skaliert" Andreas

26.08.2019, 08:56	#8
MOF Meister   Registrierung: 02.10.2003	Du k�nntest die Rotation abfragen. Wenn .Rotation=180, dann positioniere das Bild um die Bildbreite/-h�he versetzt. __________________ Sch�ne Gr��e Berni

26.08.2019, 10:28	#9
Threadstarter  Neuer Benutzer   Registrierung: 13.05.2015 Karma:	So moken wi dat. Danke Andreas ;O)

Wie kann ich in Excel ein Bild fixieren?

Wie kann man ein Bild in eine Excel Zelle einfügen?

Welche Bildformate können in Excel eingefügt werden?

Wie kann ich ein Bild vergrößern Wenn ich in Excel darauf klicke?