Bild 1 in Excel VBA: Einfügen und Anpassen

Excel VBA (Visual Basic for Applications) ist eine programmierbare Skriptsprache, mit der Sie Aufgaben automatisieren und die Funktionalität einer leistungsstarken elektronischen Excel-Tabelle erweitern können. Eines der leistungsstarken Tools, die von VBA bereitgestellt werden, ist die Möglichkeit, Bilder in Excel einzufügen und anzupassen.

Das Einfügen von Bild 1 in Excel VBA ist ein Prozess, mit dem Sie Grafiken hinzufügen können, um die Daten klarer und anschaulicher zu veranschaulichen. Bild 1 kann alles sein: ein Diagramm, ein Diagramm, ein Foto usw. Die Arbeit mit Bildern in VBA erfolgt über ein Objekt Picture, mit dem Sie verschiedene Aspekte eines Bildes steuern können, einschließlich seiner Größe, Position und Eigenschaften.

Um mit dem Einfügen von Bild 1 in Excel VBA zu beginnen, müssen Sie die Stelle auswählen, an der die Grafik in das Excel-Arbeitsblatt eingefügt werden soll. Erstellen Sie dann das Bildobjekt mit dem Designer Pictures.Insert. Danach müssen Sie den Pfad zu Bild 1 angeben und dessen Parameter wie Position, Größe, Skalierung und andere festlegen.

Sobald Bild 1 in Excel VBA eingefügt wurde, kann es angepasst und das Erscheinungsbild weiter bearbeitet werden. Dazu gehören das Ändern der Größe und Position des Bildes, das Hinzufügen von Rahmen, Schatten und anderen Effekten sowie das Ändern der Füllungs- und Randeigenschaften. Sie können auch verschiedene Filter- und Farbkorrekturmethoden anwenden, um einen bestimmten Effekt zu erzielen.

Einfügen eines Bildes in Excel VBA

Sie können die Methoden des ActiveSheet-Objekts verwenden, um ein Bild in Excel VBA einzufügen.Pictures.Insert oder ActiveSheet.Shapes.AddPicture . Mit beiden Methoden können Sie ein Bild aus einer Datei auf einem Computer einfügen und dessen Einstellungen wie Position, Größe und Transparenz anpassen.

Beispielcode zum Einfügen eines Bildes mithilfe der ActiveSheet-Methode.Pictures.Insert :

Sub InsertPicture()Dim pic As PictureSet pic = ActiveSheet.Pictures.Insert("C:\путь\к\файлу\изображения.jpg")pic.Left = Range("A1").Leftpic.Top = Range("A1").Toppic.Width = 200pic.Height = 150End Sub

In diesem Beispiel wird zunächst ein pic vom Typ Picture erstellt und mit der ActiveSheet-Methode initialisiert.Pictures.Insert , um den Pfad zur Bilddatei anzugeben. Anschließend können Sie die Position und Größe des Bildes anpassen, indem Sie Werte für die Eigenschaften Left , Top , Width und Height des Pic-Objekts angeben.

Beispielcode zum Einfügen eines Bildes mithilfe der ActiveSheet-Methode.Shapes.AddPicture :

Sub InsertPicture()Dim shp As ShapeSet shp = ActiveSheet.Shapes.AddPicture("C:\путь\к\файлу\изображения.jpg", _msoFalse, msoTrue, 100, 100, 200, 150)shp.Left = Range("A1").Leftshp.Top = Range("A1").TopEnd Sub

In diesem Beispiel wird ein shp-Objekt vom Typ Shape erstellt und mit der ActiveSheet-Methode initialisiert.Shapes.AddPicture , das den Pfad und die Parameter der Bilddatei angibt. Anschließend können Sie die Bildposition anpassen, indem Sie Werte für die Eigenschaften Left und Top des shp-Objekts angeben.

Beide Methoden können verwendet werden, um nicht nur Bilder, sondern auch andere Objekte wie Formen und Grafiken einzufügen. Bei Bedarf können Sie die Bildeinstellungen wie Transparenz, Kontur usw. weiter anpassen., mit den Eigenschaften eines pic- oder shp-Objekts .

Das Einfügen eines Bilds in Excel VBA kann beispielsweise zum Erstellen von Berichten und Dokumentationen, zum Arbeiten mit grafischen Daten oder zum Hinzufügen von dekorativen Elementen zu Tabellen und Diagrammen nützlich sein.

Wie füge ich ein Bild zu Excel VBA hinzu

Die integrierte VBA-Sprachfunktionalität ermöglicht das Einfügen von Bildern in Excel-Dokumente. Um ein Bild hinzuzufügen, können Sie die Methoden und Eigenschaften eines Objekts verwenden Worksheet.

Zunächst müssen Sie das Arbeitsblatt definieren, auf dem Sie das Bild einfügen möchten. Sie können die Funktion verwenden ActiveSheet, um das aktuell aktive Arbeitsblatt abzurufen:

Dim ws As Worksheet Set ws = ActiveSheet

Dann können Sie die Methode verwenden Pictures.Insert um ein Bild in ein Blatt einzufügen. Diese Methode gibt ein Objekt vom Typ zurück Picture, bei dem es sich um ein eingefügtes Bild handelt:

Dim pic As Picture Set pic = ws.Pictures.Insert("C:\pfad zu Bild\Bild.jpg")

Wenn Sie die Position und Größe des Bildes anpassen möchten, können Sie die Objekteigenschaften verwenden Picture:

pic.Left = 100 'Legt die horizontale Bildposition (in Pixeln) des pic fest.Top = 100 'Legt die vertikale Position des Bildes (in Pixeln) des pic fest.Width = 200 'Legt die Breite des Bildes (in Pixeln) des pic fest.Height = 200 'Einstellen der Bildhöhe (in Pixeln)

Sie können die Eigenschaft auch verwenden ShapeRange, um andere Bildattribute wie einen Strich oder eine Füllung anzupassen:

pic.ShapeRange.Line.Weight = 2 'Legt die Strich-Stärke des pic fest.ShapeRange.Fill.ForeColor.RGB = RGB(255, 0, 0) 'Einstellen der Füllfarbe

Nachdem die Einstellungen abgeschlossen sind, vergessen Sie nicht, das Arbeitsblatt zu aktualisieren, um die Änderungen zu sehen:

Das ist alles! Jetzt wissen Sie, wie Sie ein Bild in Excel VBA hinzufügen und anpassen können.

Anpassen eines Bilds in Excel VBA

Wenn Sie mit Bildern in Excel VBA arbeiten, können Sie verschiedene Einstellungen konfigurieren, um das gewünschte Ergebnis zu erzielen. In diesem Abschnitt werden die grundlegenden Einstellungen erläutert, mit denen Sie effektiv mit Bildern arbeiten können.

• Bildgröße ändern: Sie können die Größe eines Bildes mithilfe der Eigenschaft ändern Width und Height objektbild. Um beispielsweise die Breite eines Bildes auf 200 Pixel festzulegen, können Sie den folgenden Code verwenden - ActiveSheet.Shapes("Picture1").Width = 200 .
• Bildpositionierung: Sie können die Eigenschaften verwenden, um die Bildposition in Excel VBA festzulegen Top und Left objektbild. Um beispielsweise ein Bild auf Koordinaten (100, 100) zu verschieben, können Sie den folgenden Code verwenden - ActiveSheet.Shapes("Picture1").Top = 100 und ActiveSheet.Shapes("Picture1").Left = 100 .
• Ändern der Bildtransparenz: In Excel VBA können Sie die Bildtransparenz mit einer Eigenschaft ändern Transparency. Der Wertebereich für die Transparency-Eigenschaft liegt zwischen 0 und 1, wobei 0 für die vollständige Deckkraft und 1 für die vollständige Transparenz steht.
• Bildrotation: Um ein Bild in Excel VBA zu drehen, können Sie die Eigenschaft verwenden Rotation. Der Wert der Rotationseigenschaft wird in Grad zwischen 0 und 360 gemessen. Um beispielsweise ein Bild um 45 Grad zu drehen, können Sie den folgenden Code verwenden - ActiveSheet.Shapes("Picture1").Rotation = 45 .
• Ändern der Helligkeit und des Kontrasts eines Bildes: Sie können die entsprechenden Eigenschaften verwenden, um die Helligkeit und den Kontrast eines Bildes in Excel VBA zu ändern Brightness und Contrast. Die Werte für diese Eigenschaften können von -1 bis 1 variieren, wobei -1 für volle Dunkelheit oder niedrigen Kontrast steht und 1 für volle Helligkeit oder hohen Kontrast.