Bilder einfügen in VBA

[Alexander Erlich]

Hallo!

gibt es eine Möglichkeit, mit VBA Bilder in ein Dokument einzufügen,
und zwar mit relativen Pfäden? Wenn ja, wie kann man die Bilder dann
verschieben? Kann man sie skalieren?

Vielen Dank im Voraus!

Gruß
Alexander

[Eike Bimczok]

Hallo Alexander,

ein Bild kannst du so einfügen (inkl. Skalierung und Position). Was du
mit dem Pfad vorhast musst du noch genauer beschreiben.

Gruß
Eike
____________
Sub bildEinfuegen()
'10-2005
'E.Bimczok

Dim p As Object
Set p = ActiveSheet.Pictures.Insert("C:\Beispiel.jpg")

p.Width = 50
p.Height = 50
p.Top = 10
p.Left = 10

End Sub
____________

Post by Alexander Erlich
Hallo!
gibt es eine Möglichkeit, mit VBA Bilder in ein Dokument einzufügen,
und zwar mit relativen Pfäden? Wenn ja, wie kann man die Bilder dann
verschieben? Kann man sie skalieren?
Vielen Dank im Voraus!
Gruß
Alexander

[unknown]

Hallo Alexander,
zeichne mit dem Makrorekorder das Einfügen, Verschieben und Skalieren
eines Bildes auf.
Abschliessend überarbeitest du den erzeugten Code noch etwas.

MfG Frank
_________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
Microsoft Excel - Die ExpertenTipps http://tinyurl.com/cmned
Website: http://www.xl-faq.de
# Auftragsprojekte#

[Alexander Erlich]

Hallo!

Danke für die Tipps!

@ Eike: Mit dem realtiven Pfad meine ich das Prinzip wie bei HTML. Di
schreibst als Pfad ja "C:\Beispiel.jpg" und gibst damit den absoluten
Pfad an. Ich würde gerne schreiben :"Beispiel.jpg", so dass die Datei
Beispiel.jpg _immer_ gefunden wird, wenn sie im selben Ordner liegt wie
die Excel-Datei. Ist das möglich?

Noch eine Frage: wie kann man globale Variablen anlegen?

Danke im Voraus!

Gruß
Alexander

[Michael Schwimmer]

Hallo Alexander

Post by Alexander Erlich
@ Eike: Mit dem realtiven Pfad meine ich das Prinzip wie bei HTML. Di
schreibst als Pfad ja "C:\Beispiel.jpg" und gibst damit den absoluten
Pfad an. Ich würde gerne schreiben :"Beispiel.jpg", so dass die Datei
Beispiel.jpg _immer_ gefunden wird, wenn sie im selben Ordner liegt
wie die Excel-Datei. Ist das möglich?

ThisWorkbook.Path & "\Beispiel.jpg"

Post by Alexander Erlich
Noch eine Frage: wie kann man globale Variablen anlegen?

In einem allgemeinen Modul (Einfügen/Modul) eine Public-Variable
anlegen.

Public gstrGlobaleVariable As String

MfG
Michael

[Alexander Erlich]

Hallo!

Danke für die Tipps!

Gruß
Alexander

[Michael Schwimmer]

Hallo Alexander,

Post by Alexander Erlich
Danke für die Tipps!

gern geschehen!

MfG
Michael