per Makro jpg einfügen

[Wexel]

Habe mal die Meldung angehängt.

[Crazy Tom]

dann ne Beispieldatei

[Wexel]

was meinst du damit ?

[Crazy Tom]

na lade (d)eine Beispielmappe hoch in der es nicht funktioniert

[Wexel]

siehe Anhang

[Crazy Tom]

Hallo

auch in deiner Datei habe ich kein Problem

wenn bei dir die Fehlermeldung kommt
was zeigt die Variable Dat denn an beim debuggen wenn du in der gelben Zeile mit der Maus darüber fährst

[Wexel]

dazu komme ich erst gar nicht.
Die Zeile wird gelb, hinter dem Mauszeiger kommt ein laufender Kreis und Excel stürzt ab.

Muss dann das Makro wieder neu öffnen.

Alle anderen Makros laufen ohne Probleme.

[Wexel]

muss leider los, Vielen Dank für deine Mühe.

Schönen Sonntag

[00202]

Hallo, :19:

seid Excel 2010 zickt "Pictures.Insert" etwas rum. Probiere es mal so:

Code:

Option Explicit
Sub Main()
    Dim strPicName As Variant
    Dim dblScale As Double
    Dim objShape As Shape
    On Error Resume Next
    ActiveSheet.Shapes("picto").Delete
    Err.Clear
    On Error GoTo Fin
    strPicName = "C:\Temp\Bild1.jpg"
    Select Case Right(strPicName, 3)
        Case "bmp", "jpg", "tif", "gif", "bmp"
            Application.ScreenUpdating = False
            With Cells(3, 3)
                Set objShape = ActiveSheet.Shapes.AddPicture( _
                    strPicName, msoFalse, msoTrue, .Left, .Top, -1, -1)
                objShape.Top = .Top + 1
                objShape.Left = .Left + 1
                dblScale = WorksheetFunction.Min(.Width / objShape.Width, .Height / objShape.Height)
                objShape.Height = objShape.Height * dblScale
                objShape.Name = "picto"
            End With
        Case Else
            MsgBox "Sie haben kein gültiges Bild ausgewählt"
    End Select
Fin:
    Set objShape = Nothing
    Application.ScreenUpdating = True
    If Err.Number <> 0 Then MsgBox "Error: " & _
        Err.Number & " " & Err.Description
End Sub

[Wexel]

Danke für den Hinweis.

Das mit deinem Makro funktioniert soweit, heißt läuft sauber ab und kopiert die Grafik in die ausgewählte Zelle.

Nur erscheint in der Zelle dann einkleines Symbol. Wenn ich dieses vergrößere steht da "DAs Bild kann nicht angezeigt werden"

habe es mal angehängt

















[img=68x67]file:///C:/Users/WEXELB~1/AppData/Local/Temp/msohtmlclip1/01/clip_image002.png[/img]