Zwischenablage in Userform anzeigen und ...

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Thomas,
im Prinzip so:

Private Sub CommandButton1_Click()
    Const FILE_PATH As String = "H:\Test.jpg"
    Dim objShape As Shape, objChartObject As ChartObject
    Dim objWorksheet As Worksheet
    Application.ScreenUpdating = False
    Set objWorksheet = ThisWorkbook.Worksheets.Add
    With objWorksheet
        Call .Paste
        If .Shapes.Count = 1 Then
            Set objShape = .Shapes(1)
            Set objChartObject = .ChartObjects.Add(Left:=0, Top:=0, _
                Width:=objShape.Width, Height:=objShape.Height)
            With objChartObject
                Call .Chart.Paste
                Call .Chart.Export(Filename:=FILE_PATH, FilterName:="JPG")
                Set Image1.Picture = LoadPicture(FILE_PATH)
                Call Kill(PathName:=FILE_PATH)
            End With
        Else
            Call MsgBox("Kein Bild in der Zwischenablage.", vbExclamation, "Hinweis")
        End If
    End With
    Application.DisplayAlerts = False
    objWorksheet.Delete
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    Set objWorksheet = Nothing
    Set objShape = Nothing
    Set objChartObject = Nothing
End Sub

Was du da in Zelle A1 schreiben willst ist mir nicht klar.
Gruß
Nepumuk

Hallo Thomas,
so:

Private Sub CommandButton1_Click()
    Dim objShape As Shape, objChartObject As ChartObject
    Dim strPath As String
    Application.ScreenUpdating = False
    With Worksheets("Drucken")
        .Paste Destination:=.Cells(41, 2)
        If .Shapes.Count >= 1 Then
            strPath = Environ$("TMP") & "\Test.jpg"
            Set objShape = .Shapes(.Shapes.Count)
            Set objChartObject = .ChartObjects.Add(Left:=0, Top:=0, _
                Width:=objShape.Width, Height:=objShape.Height)
            With objChartObject
                Call .Chart.Paste
                Call .Chart.Export(Filename:=strPath, FilterName:="JPG")
                Set Image1.Picture = LoadPicture(strPath)
                Call Kill(PathName:=strPath)
                Call .Delete
            End With
        Else
            Call MsgBox("Kein Bild in der Zwischenablage.", vbExclamation, "Hinweis")
        End If
    End With
    Application.ScreenUpdating = True
    Set objShape = Nothing
    Set objChartObject = Nothing
End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

Zwischenablage in Userform anzeigen und ...

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zwischenablage in Userform anzeigen und ...

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread