Userform Bilder einfügen konvert Pdf

[Crazy Tom]

moin,

und was funzt (was für ein dämliches Wort) da nicht?
in meinem Test deiner Codeschnipsel wird das Bild jeweils an einer bestimmten Stelle eingefügt
einmal Top-Left Zelle G3
und einmal ganz am Rand in Höhe in Zelle A18

Code:

Sub mach_et()
    Dim Bildpfad As String
    Bildpfad = Range("D2").Value
    With Tabelle1.Pictures.Insert(Bildpfad)
        .Height = 85
'        .Width = 300
        .Name = "Bild1"
        .Top = 250
        .Left = 0
    End With
    With Tabelle1.Pictures.Insert(Bildpfad)
        .Height = 85
'        .Width = 300
        .Name = "Bild2"
        .Top = Tabelle1.Range("G3").Top
        .Left = Tabelle1.Range("G3").Left
    End With
End Sub

mfg Tom

[Egon12]

Hallo Andreas,

dein Bildpfad ist fehlerhaft!


Gruß Uwe

[schauan]

Hallöchen,

mit einem fehlerhaften Pfad können doch keine Bilder übereinander gelegt werden?

Ansonsten, da hätten wir wieder eine Antwort aus den Top 3 der hilfreichen Fehlerbeschreibungen ...

Beides funzt nicht.

[Andyle]

Im Anhang mal die Datei.

Die Position bleibt unverändert!

---

Wieso übereinander?

Die Bilder sollen, wenn im Userform eingegeben wie folgt sein
Die Bilder werden auch eingefügt, nur halt die Position nicht geändert!

Bild 1
Bild1 darunter / Tabelle13.Range("B57")

Bild 2
Bild 2 darunter / Tabelle13.Range("B79")

Bild 3
Bild 3 darunter / Tabelle13.Range("B108")

[Egon12]

@André,

sorry, das hatte ich wohl übersehen. Ich habe mir nur die beiden Codeschnipsel vom TO angeschaut.

Gruß Uwe

[Andyle]

@ Crazy Tom

Hab jetzt mal den Code in eine neue Arbeitsmappe gemacht und da funzt er.

Jetzt bin ich durcheinander.

Code:

Sub mach_et()
    Dim Bildpfad As String
   
'Bilder löschen falls vorhanden
On Error Resume Next
Tabelle1.Shapes("Bild1").Delete
On Error GoTo 0

    Bildpfad = "C:\Users\Andreas\Pictures\ich\20210810_092646.jpg"

    With Tabelle1.Pictures.Insert(Bildpfad)
        .Height = 300
'        .Width = 300
        .Name = "Bild1"
        .Top = Tabelle1.Range("B57").Top
        .Left = Tabelle1.Range("B57").Left
    End With
End Sub

[Crazy Tom]

hast du mal die Schreibweise von Bildpfad überprüft?
bei dir ist zwischen Bild und Pfad noch ein l

[Andyle]

Bild1pfad also eine 1!

sind 3 Bilder wo der Pfad aus der Tabelle kommt.

Wird über das Userform da gespeichert!

[Egon12]

Hallo Andreas,

ich habe deine Datei mal ein bisschen untersucht. Diese Datei ist schon nicht mehr ganz intakt.
Es kommt schon zu Fehlern bei simplen Dingen wie Format. Variablen werden als solche nicht mehr automatisch erkannt usw.
Lege eine neue Datei an und übertrage Stück für Stück am besten möglichst nur Via Werte einfügen die Daten aus der alten in die neue Datei und überprüfe, ob alles ordentlich funktioniert.

Arbeite in VBA über deklarierte Variablen und schreibe in die erste Zeile des jeweiligen Moduls Option Explicit. Das verhindert einigermaßen schwerer erkennbare Fehler und Schusseleien mit Variablen.

Gruß Uwe

[Andyle]

@ Egon12

Bei mir kommen keine Fehler beim beschreiben der Tabelle

Das Schadenprotokoll wird korrekt erstellt und als Pdf gespeichert.

Auch die Bilder werden korrekt und ohne Fehlermeldung eingefügt, halt nur die Position nicht.