Thema Datum  Von Nutzer Rating
Antwort
21.06.2008 12:06:57 Sauschwein
NotSolved
Blau Aw:Grafiken einfügen
 22.06.2008 09:46:25 jh
NotSolved

Ansicht des Beitrags:
Von:
jh		 Datum:
22.06.2008 09:46:25		 Views:
1930		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Grafiken einfügen
Hallo,

dafür bietet sich die GetOpenFilename-Methode an:

PrivateSub GrafikEinfuegen()
Dim vntFilename As Variant, shpA As Shape
vntFilename = Application.GetOpenFilename(FileFilter:= _
"Grafikdateien (*.bmp; *.jpg; *.wmf; *.gif), *.bmp; *.jpg; *.wmf; *.gif", _
Title:="Grafik einfügen")
If vntFilename = False Then Exit Sub ' Abbrechen geklickt
Set shpA = ActiveSheet.Shapes.AddPicture( _
vntFilename, False, True, Cells(1, 1).Left, Cells(1, 1).Top, B, H)
End Sub

Die Einfügeparameter B und H bezeichnen Breite und Höhe der einzufügenden
Grafik in Pixel. Da diese Parameter angegeben werden müssen, hast du die
Wahl, dafür feste Werte anzugeben, wobei die Gefahr besteht, dass die
Proportionen der Grafik verzerrt werden, oder du musst sie vorher bestimmen.
Man kann sie aus dem Dateiheader auslesen, das geht allerdings für jedes
Grafikformat anders. Über die Objektvariable shpA kannst du auf das
Shape-Objekt zugreifen, z. B. die Grafik formatieren oder ein Makro
zuweisen. Wenn du einfach nur die Grafik einfügen willst und fertig,
geht es auch so:

ActiveSheet.Pictures.Insert vntFilename

Diese Methode wird zwar nur noch "aus Gründen der Abwärtskompatibilität"
unterstützt, aber sogar Excel selbst verwendet sie noch, wenn man das
Einfügen als Makro aufzeichnet :-)

Gruß


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
21.06.2008 12:06:57 Sauschwein
NotSolved
Blau Aw:Grafiken einfügen
 22.06.2008 09:46:25 jh
NotSolved