07.01.2018, 12:11
07.01.2018, 12:11
dann ne Beispieldatei
07.01.2018, 12:16
was meinst du damit ?
07.01.2018, 12:38
na lade (d)eine Beispielmappe hoch in der es nicht funktioniert
07.01.2018, 12:44
siehe Anhang
07.01.2018, 12:54
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
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
07.01.2018, 12:58
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.
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.
07.01.2018, 12:59
muss leider los, Vielen Dank für deine Mühe.
Schönen Sonntag
Schönen Sonntag
08.01.2018, 08:21
Hallo, :19:
seid Excel 2010 zickt "Pictures.Insert" etwas rum. Probiere es mal so:
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 Sub08.01.2018, 15:04
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]
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]