Thema Datum  Von Nutzer Rating
Antwort
Rot Bild aus Tabellenblatt in Userform integrieren
 25.06.2024 13:33:18 Sebastian
NotSolved
25.06.2024 16:19:36 ralf_b
NotSolved
25.06.2024 18:41:05 Gast58436
NotSolved
25.06.2024 22:44:33 ralf_b
NotSolved
28.06.2024 17:49:48 volti
NotSolved

Ansicht des Beitrags:
Von:
Sebastian		 Datum:
25.06.2024 13:33:18		 Views:
332		 Rating:
     
Antwort:
  Ja
Thema:
Bild aus Tabellenblatt in Userform integrieren

Hallo zusammen! Ich habe leider ein Problem mit einem, in der "Tabelle1" hinterlegten, Bild, welches in die Image1 einer Userform geladen werden soll. Mal passt das, mal funktioniert das nicht.

Dim mychart As String
Dim myPicture As String
Dim picHeight As Long
Dim picWidth As Long


Worksheets("Tabelle1").Pictures(1).Select
myPicture = Selection.Name


Charts.Add
ActiveChart.Location where:=xlLocationAsObject, Name:="Tabelle1"
Selection.Border.LineStyle = 0
mychart = Selection.Name & " " & Split(ActiveChart.Name, " ")(2)

With Worksheets("Tabelle1")
    With .Shapes(mychart)
        .Width = 546
        .Height = 102
    End With
    .Shapes(myPicture).Copy
    With ActiveChart
        .ChartArea.Select
        .Paste
    End With

filepath = Environ$("Temp") & "\Chart" & ChNo & ".jpg"
    .ChartObjects(1).Chart.Export Filename:=filepath, Filtername:="jpg"
    .Shapes(mychart).Cut
End With
    
Me("Image1").Picture = LoadPicture(filepath)
Kill filepath

 

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 aus Tabellenblatt in Userform integrieren
 25.06.2024 13:33:18 Sebastian
NotSolved
25.06.2024 16:19:36 ralf_b
NotSolved
25.06.2024 18:41:05 Gast58436
NotSolved
25.06.2024 22:44:33 ralf_b
NotSolved
28.06.2024 17:49:48 volti
NotSolved