Office: Grafik laden und bearbeiten

Hallo, allerseits!

Kennt jemand eine Möglichkeit, eine Grafik (BMP, GIF oder JPG bevorzugt) in eine Excel-Tabelle zu laden und an entsprechende Position zu setzen, Breite und Höhe anzupassen usw.?

Des weiteren bräuchte ich eine Möglichkeit, zumindest grundlegende Veränderungen an der Grafik vorzunehmen. Prinzipiell würde mir das Setzen eines Punktes erstmal reichen, da ich entsprechende Makros für Linien, Kreise usw. dann zur Not auch selbst hinbekomme. (Nichts dagegen, wenn es dazu auch was Passendes bereits fertig gibt...)

Und als Letztes wäre ein Speichern der Grafik dann auch noch prima...

Hintergrund: Es geht um die Darstellung von Koordinaten auf einer Karte, Häufigkeiten durch entsprechend kleine oder größere Kreise. Ich habe dazu auch schon was gefunden, aber das ist leider alles andere als handlich. Dort muß die Grafik bereits geladen sein und die Marker werden als Shapes darauf platziert. Eine Weiterverarbeitung der resultierenden Grafik gestaltet sich deswegen etwas reichlich schwieriger.

Außerdem müßte ich dafür etliche Blätter mit unterschiedlichen Grafiken vorhalten. Eine Weltkarte, eine für jeden Kontinent, eine für Deutschland und ein paar weitere für einzelne Länder. Und da sich etliche Hundert (z.T. sogar Tausend) Marker auf diesen Karten verteilen müßten, befürchte ich auch um das leibliche Wohl der das zu verarbeitenden Rechner. (Vom Seelenheil der davor sitzenden Anwender mal ganz zu schweigen...) ;-)

Gruß, Michael

 

Hallo Michael,

vielleicht findest Du hier paar Ansätze
http://hajo-excel.de/vba_bild.htm

Gruß Hajo

 

Ja, auf die Seite hattest Du vor kurzem auch in anderem Zusammenhang verlinkt. Ich hatte schonmal kurz draufgeschaut. Aber anhand der Überschriften ist dort immer nur von "Grafik laden" in diversen Variationen die Rede. Von "Grafik bearbeiten" und "Grafik speichern" stand da nichts.

Aber ich werde mir die Dinger trotzdem mal in Ruhe der Reihe nach ansehen. Vielleicht findet sich ja doch was.

Ich würde ja auf wilde Verlinkungen in irgendeine System32-Dll tippen, um an Zeichen-Routinen, Bitmap-Canvas usw. heranzukommen.

Gruß, Michael

 

Hallo Michael,

in Deinem Beitrag ging es auch um das einfügen, dafür sinnd Ansätze da, für speichern und bearbeiten nicht.

Gruß Hajo

 

Hi Michael,

ein Bild kann man mit folgendem Code exportieren:

Code:

Sub BildExportieren()
    Dim chDiagramm As ChartObject
    Dim shBild As Shape
    Application.ScreenUpdating = False
    Set shBild = ActiveSheet.Shapes(1)
    shBild.CopyPicture Appearance:=xlScreen, Format:=xlPicture
    Set chDiagramm = ActiveSheet.ChartObjects.Add(0, 0, shBild.Width, shBild.Height)
    With chDiagramm.Chart
        .Paste
        .Export Filename:="C:\Test\Versuch.jpg", FilterName:="JPG" ' andere Grafikformate sind möglich
    End With
    chDiagramm.Delete
    Set chDiagramm = Nothing
    Set shBild = Nothing
    Application.ScreenUpdating = True
End Sub

Ordner und Bildname musst du natürlich anpassen.

Bis später,
Karin