Thema Datum  Von Nutzer Rating
Antwort
Rot Bild von Tabellenblatt auf Tabellenblatt übertragen
 08.12.2020 13:33:12 DGork
NotSolved
08.12.2020 14:47:11 volti
Solved
08.12.2020 16:05:34 DGork
NotSolved
08.12.2020 16:09:01 volti
NotSolved

Ansicht des Beitrags:
Von:
DGork		 Datum:
08.12.2020 13:33:12		 Views:
1250		 Rating:
     
Antwort:
  Ja
Thema:
Bild von Tabellenblatt auf Tabellenblatt übertragen

Hallo liebe Community,

Ich habe ein Makro geschrieben das ein Bild aus einer Datei in ein Tabellenblatt kopiert. Dieser Code funktioniert auch wunderbar, nur leider wird das eingefügte Bild sehr wahrscheinlich verschoben und der Dateipfad dann ungültig. Da das Makro aber ein neues Tabellenblatt in einer existenten Arbeitsmappe erstellt hatte ich mir überlegt das Bild einfach in einem Tabellenblatt einzubetten und dieses dann zu kopieren. im alten Code wird aber noch Größe und position anhand einer Variable "pct" eingestellt was dann leider nichtmehr funktioniert.

 

Hier mal der funktionierende alte Code:


'Variablen zum einfügen der Grafik
Dim strVerzeichnis$, strDatei$
Dim pct As Picture
Dim lngZeile, lngSpalte As Long 
Dim varBreite, varHoehe As Variant

strVerzeichnis = "X:\[Hier stand das Verzeichnis]"
strDatei = Dir(strVerzeichnis & "\[Hier Bild Name].png")

lngZeile = 1
lngSpalte = 5

varBreite = .Columns("H:J").Width

With Worksheets("Desk Audit")

     .Cells(lngZeile, lngSpalte).Select

     Set pct = .Pictures.Insert(strVerzeichnis & "\" & strDatei)

     If pct.Name Like "Picture*" Then
             pct.Name = "[Neuer Name]"
     End If

     pct.Width = varBreite
     pct.Left = varBreite + 215

     varHoehe = .Shapes("[Neuer Name]").Height
    .Rows(lngZeile).RowHeight = varHoehe

End With
 
 
Jetzt würde ich aber gerne das Bild aus der anderen Arbeitsmappe nehmen und hab so angesetzt:
 
Worksheets("Fragenliste").Shapes.Range(Array("[Name des Bildes]")).Select
Selection.Copy
Set pct = Pictures.Insert(Selection.Paste)
 
Leider spuckt Excel dabei den Laufzeitfehler 438 "Objekt unterstützt diese Eigenschaft oder Methode nicht" aus.
 
Vielen Dank für jeden der sich den Text bis hierhin durchgelesen hat. Wenn jetzt evtl einer von euch noch eine Lösung oder einen Hinweis parat hätte würde mir das sehr weiterhelfen.
 
Mit freundlichen Grüßen,
 
DGork
 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Bild von Tabellenblatt auf Tabellenblatt übertragen
 08.12.2020 13:33:12 DGork
NotSolved
08.12.2020 14:47:11 volti
Solved
08.12.2020 16:05:34 DGork
NotSolved
08.12.2020 16:09:01 volti
NotSolved