Bild einfügen excel makro

Forumthread: Bild einfügen excel makro

13.11.2024 10:44:38

Roman

Hallo Leute,

bin ein Excel Amateur habe bisher immer eigentlich alles zusammengeschrieben bekommen, indem ich andere Codes zusammen geschustert habe.

Dieses mal brauche ich eure Hilfe.

Ich würde gerne eine Makro programmieren, welches:

-Ein Bild einfügt
-Dieses soll per Auswahl ( je nach Lage verschiedene Bilder) werden aus einem bestimmten Ordner eingefügt werden. ( Dateipfad Ordner ist vorhanden.)
-Die Zelle ist relativ groß und es sollen auch gleichzeitig 2 Bilder ausgewählt werden können. oder nacheinander. ( vielleicht hinterlegen wir ein Piktogramm/Bild mit zugewiesen Makro ?) ( kein must-have )
- Größe kann/soll manuell angepasst werden( Bilder sind verschieden groß und menge soll manuell bestimmt werden)

Viele Grüße und danke Roman

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Bild einfügen excel makro

13.11.2024 13:31:40

Peter
AW: Bild einfügen excel makro

14.11.2024 09:43:38

Roman

AW: Bild einfügen excel makro

13.11.2024 13:31:40

Peter

So in etwa?
Für deine Ausführliche Liste habe ich erstmal keine Zeit.
Bei der Größe musst du mir infos geben, sollen zwei bilder die selbe größe haben (vom ersten inserteden) oder sollen die beide eine fixe größe haben?

Sub BildEinfügen()

  Sub BildEinfügen()

    Dim BildObjekt As Object

    

    ' Ordnerpfad für die Bilder

    'Dim BildPfad As String

    'BildPfad = "C:\Dein\Ordner\Pfad\" ' - Hier den Ordnerpfad anpassen

    'wenn hardcoded

    

    ' Dateiauswahldialog !WINDOWS ONLY

    Dim BildDatei As String

    BildDatei = Application.GetOpenFilename("Bilder (*.jpg; *.jpeg; *.png), *.jpg; *.jpeg; *.png", , "Bild auswählen")

    

    ' Wenn ein Bild ausgewählt wurde, füge es ein

    If BildDatei > "Falsch" Then

        ' Füge das Bild ein und lege es als Objekt ab

        Set BildObjekt = ActiveSheet.Pictures.Insert(BildDatei)

        

        ' Positioniere das Bild auf die aktive Zelle

        With BildObjekt

            .Left = ActiveCell.Left

            .Top = ActiveCell.Top

            .Placement = xlMoveAndSize

            

            ' Festgelegte Standardgröße

            .Height = 100 ' Höhe in Punkten

            .Width = 100 ' Breite in Punkten

        End With

        

    End If

End Sub

End Sub

AW: Bild einfügen excel makro

14.11.2024 09:43:38

Roman

HAllo:D

erstmal danke:D

Forumthread: Bild einfügen excel makro

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread