Office: Problem mit Grafik über Formel

Hallo zusammen,

ich habe folgenden Code in einem Standartmodul um über eine Formel (=grafik()) eine Grafik in ein Tabellenblatt einzufügen.

Code:

Option Explicit
Private Declare Function KillTimer Lib "user32.dll" ( _
ByVal hWnd As Long, _
ByVal nIDEvent As Long) As Long
Private Declare Function SetTimer Lib "user32.dll" ( _
ByVal hWnd As Long, _
ByVal nIDEvent As Long, _
ByVal uElapse As Long, _
ByVal lpTimerFunc As Long) As Long
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Const GC_CLASSNAMEMSEXCEL = "XLMAIN"
Private objCell As Range
Private strPicturePath As String
Private hWnd As Long
Public Function Grafik(Zelle As Range, Pfad As String) As String
Set objCell = Zelle.Cells(1, 1)
strPicturePath = Pfad
hWnd = FindWindow(GC_CLASSNAMEMSEXCEL, Application.Caption)
SetTimer hWnd, 0, 1, AddressOf prcTimer
End Function
Private Sub Grafik_einfuegen()
Dim objShape As Picture
Set objShape = objCell.Parent.Pictures.Insert(strPicturePath)
With objShape
.Top = objCell.Top
.Left = objCell.Left
End With
End Sub
Private Sub prcStopTimer()
KillTimer hWnd, 0
End Sub
Private Sub prcTimer(ByVal hWnd As Long, ByVal nIDEvent As Long, _
ByVal uElapse As Long, ByVal lpTimerFunc As Long)
On Error Resume Next
Call prcStopTimer
Call Grafik_einfuegen
End Sub

Mein Problem.

Ich möchte jetzt über ein Makro in einem Tabellenblatt 9 Grafiken einfügen aber ich bekomme es nicht hin. Ich bekomme immer nur das letzte Bild eingefügt und ich weis nicht warum ich das erste bild nicht einfügen lassen kann.
Wenn ich den Code änderer und nur eine Bild über ein Makro einfügen lasse geht es. Aber sobal ich mit einem Makro 2 oder mehr Bilder einfügen lassen will wird immer nur das letzte eingefügt.

Code für die ersten zwei Bilder:

Code:

Sub ausfuehren_mb1() 

Sheets("Mobilbagger").Select 
Range("G10:H23").Select 
ActiveCell.FormulaR1C1 = "=grafik(Mobilbagger!RC,CONCATENATE(""D:\Eigene Dateien\Eigene Bilder\005.gif""))" 

Range("G29:H42").Select 
ActiveCell.FormulaR1C1 = "=grafik(Mobilbagger!RC,CONCATENATE(""D:\Eigene Dateien\Eigene Bilder\006.gif""))" 
Sheets("Zusammenfassung").Select 
Range("P7").Select

Ich hoffe ihr könnt mir helfen.

Gruß

 

Kann mir jemand helfen mit dem Problem?

 

Hallo!

Helfen kann ich dir leider nicht, aber ich kann dir zumindest bestätigen, dass es sich bei mir genauso verhält...
Vielleicht fragst du mal den Ersteller des Codes.