<\/p>\n
Excel ist ein leistungsstarkes und vielseitiges Tool für die Datenanalyse und -visualisierung. Es ermöglicht es den Benutzern, große Datenmengen effektiv zu verwalten und in verschiedenen Formen darzustellen. Bilder sind dabei oft eine wichtige Ergänzung, um die Analyse von Daten oder Informationen zu unterstützen. Das Einfügen von Bilddateien in Excel-Worksheets per VBA ist eine solche Aufgabe, die es Benutzern ermöglicht, Bilder in ihre Arbeitsmappen einzufügen, um die Datenanalyse und -präsentation zu verbessern. In diesem Artikel werden wir uns damit beschäftigen, wie man Bilddateien in Excel-Worksheets per VBA einfügen kann und welche Vorteile und Anwendungsfälle es gibt.<\/b><\/p>\nWozu Bilder in Excel einfügen?<\/h2>\n
Für das Einfügen von Bildern in Excel-Dokumenten gibt es verschiedene Anwendungszwecke. Hier sind ein paar davon:<\/p>\n
Wenn wir ein Bild in eine Zelle einfügen wollen, gelingt dies am einfachsten über die Benutzeroberfläche. Dazu markieren wir die Zielzelle und wähle aus dem Ribbon den Eintrag Einfügen|Illustrationen|Bilder <\/b>aus und dann die Schaltfläche Dieses Gerät… (siehe Bild 1).<\/b><\/p>\n
![\"Bild](\"..\/fileadmin\/_temp_\/2023_03\/pic_374_001.png\")
<\/p>\n
Bild 1: Bild einfügen per Benutzeroberfläche<\/span><\/b><\/p>\n Damit aktivieren wir einen Datei öffnen<\/b>-Dialog, mit dem wir die einzufügende Bilddatei auswählen.<\/p>\n Diese erscheint anschließend in der aktuell markierten Zelle (siehe Bild 2).<\/p>\n Bild 2: Ein eingefügtes Bild<\/span><\/b><\/p>\n Klicken wir mit der rechten Maustaste auf das neu hinzugefügte Bild, finden wir im Kontextmenü beispielsweise die Befehle Größe und Eigenschaften <\/b>oder Grafik formatieren…<\/b> – mit Ersterem öffnen wir den Bereich aus Bild 3.<\/p>\n Bild 3: Einige Eigenschaften des Bildes<\/span><\/b><\/p>\n Damit sehen wir bereits die Optionen, die wir gegebenenfalls auch mit VBA einstellen können.<\/p>\n Nachfolgend stellen wir zwei verschiedene Möglichkeiten vor, Bilder per VBA zu einem Excel-Worksheet hinzuzufügen:<\/p>\n Beide haben Vor- und Nachteile, die wir uns im Folgenden ansehen. Wir beginnen mit der Insert<\/b>-Methode der Pictures<\/b>-Auflistung.<\/p>\n Zum Einfügen von Bildern per VBA bietet das Excel-Objektmodell die Methode Insert <\/b>der Pictures<\/b>-Auflistung an. Diese erwartet lediglich den Pfad der einzufügenden Bilddatei als Parameter.<\/p>\n In folgendem Beispiel wollen wir eine Bilddatei einfügen, die sich im gleichen Verzeichnis wie das Excel-Workbook befindet, welches wir mit ThisWorkbook.Path <\/b>ermitteln:<\/p>\n Aber wo wird diese Bilddatei nun eingefügt? An der Stelle der aktuell markierten Zelle. Wir müssen also, wenn wir eine Bilddatei gezielt in einem Excel-Worksheet ablegen wollen, zuvor die Zielzelle markieren.<\/p>\n Handelt es sich um die Zelle B2<\/b>, gelingt das wie folgt. Wir referenzieren das aktuelle Worksheet und hier die Zelle B2<\/b>, dann fügen wir das Bild ein:<\/p>\n Damit landet das Bild in Zelle B2<\/b> (siehe Bild 4).<\/p>\n Bild 4: Bild in Zelle B2 einfügen<\/span><\/b><\/p>\n Wir können das Bild auch zuvor per Dateiauswahl-Dialog auswählen und einfach an der aktuell markierten Zelle einfügen. Dazu verwenden wir zunächst die Methode GetOpenFilename<\/b> und weisen das Ergebnis der Insert<\/b>-Methode zu:<\/p>\n Danach können wir die einzufügende Datei auswählen und diese landet mit der linken oberen Ecke in der gewünschten Zelle.<\/p>\n In einer For Each<\/b>-Schleife können wir die in einem Excel-Worksheet enthaltenen Bilder durchlaufen.<\/p>\n Im folgenden Beispiel geben wir den Namen des jeweils referenzierten Bildes aus:<\/p>\n Diese werden von Excel beim Einfügen automatisch vergeben und lauten zum Beispiel Picture 8 <\/b>oder Picture 12<\/b>.<\/p>\n Weiter oben haben wir bereits den Eigenschaften-Dialog für ein Bild in einem Excel-Worksheet angesehen. Die dort angezeigten Eigenschaften lassen sich auch per VBA einstellen.<\/p>\n Dazu referenzieren wir zuerst das gewünschte Bild, in diesem Fall das einzige vorhandene Bild (oder das erste, falls mehrere enthalten sind):<\/p>\n Neben dem Index können wir die Bilder in der Pictures<\/b>-Auflistung auch über einen beim Einfügen automatisch vergebenen Namen referenzieren, zum Beispiel:<\/p>\n Und wir können die Bilder auch umbenennen, indem wir der Name<\/b>-Eigenschaft einen neuen Wert hinzufügen:<\/p>\n Beim Einfügen des Bildes wurde dieses mit der linken oberen Ecke in der aktiven Zelle einfügt. Diese Position können wir abfragen – ebenso wie die Zelle, in der sich die rechte, untere Ecke des Bildes befindet. Dazu nutzen wir die beiden Eigenschaften TopLeftCell <\/b>und BottomRightCell<\/b>:<\/p>\n Dass die Bilddatei beim Verwenden der Insert<\/b>-Methode der Pictures<\/b>-Auflistung in der linken, oberen Ecke landet, heißt nicht, dass sich die linke, obere Ecke auch immer in der linken, oberen Ecke der mit TopLeftCell <\/b>ermittelten Zelle befindet.<\/p>\n Wir können das Bild auch so verschieben, dass sich die linke, obere Ecke mitten in einer Zelle befindet. TopLeftCell <\/b>gibt dann immer noch die Zelle an, in der sich diese Ecke befindet.<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>![\"Ein](\"..\/fileadmin\/_temp_\/2023_03\/pic_374_002.png\")
<\/p>\n![\"Einige](\"..\/fileadmin\/_temp_\/2023_03\/pic_374_003.png\")
<\/p>\nVerschiedene VBA-Methoden<\/h2>\n
\n
Bilder einfügen per Pictures.Insert<\/h2>\n
ActiveSheet.Pictures.Insert _\r\n ThisWorkbook.Path & \"\\pic001.png\"<\/pre>\n
Public Sub <\/span>BilddateiEinfuegen()\r\n Dim <\/span>wsh As <\/span>Worksheet\r\n Set<\/span> wsh = ActiveSheet\r\n wsh.Range(\"B2\").Select\r\n wsh.Pictures.Insert ThisWorkbook.Path & \"\\pic001.png\"\r\nEnd Sub<\/span><\/pre>\n![\"Bild](\"..\/fileadmin\/_temp_\/2023_03\/pic_374_004.png\")
<\/p>\nBild auswählen und in aktueller Zelle einfügen<\/h2>\n
Public Sub <\/span>BilddateiAuswaehlen()\r\n Dim <\/span>strBild As String<\/span>\r\n strBild = Application.GetOpenFilename(, , _\r\n \"Bild auswählen\")\r\n ActiveSheet.Pictures.Insert strBild\r\nEnd Sub<\/span><\/pre>\nBilder durchlaufen<\/h2>\n
Public Sub <\/span>BilderDurchlaufen()\r\n Dim <\/span>objPicture As <\/span>Picture\r\n For Each objPicture In ActiveSheet.Pictures\r\n Debug.Print<\/span> objPicture.Name\r\n Next<\/span> objPicture\r\nEnd Sub<\/span><\/pre>\nEigenschaften von Bildern in Excel<\/h2>\n
Dim <\/span>objPicture As <\/span>Picture\r\nSet<\/span> objPicture = ActiveSheet.Pictures(1)<\/pre>\nReferenzieren eines Picture-Elements<\/h2>\n
Set<\/span> objPicture = ActiveSheet.Pictures(\"Picture 12\")<\/pre>\nUmbenennen von Picture-Elementen<\/h2>\n
ActiveSheet.Pictures(\"Picture 21\").Name = \"Bild 3\"<\/pre>\n
Position des Bildes ermitteln<\/h2>\n
Debug.Print<\/span> objPicture.TopLeftCell.Address\r\nDebug.Print<\/span> objPicture.BottomRightCell.Address<\/pre>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Visual Basic Entwickler<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 200 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t