W kodzie ACCESS-a Wstawienie obrazka z pliku do EXCELLa

[siwy5]

Generuje plik z ACCESS -plik Excell. Wstawiam wartości do odpowiednich pól i jest ok.
Ale teraz potrzebuje wstawić do każdego wiersza miniaturkę z pliku bmp lub jpg
Jak to zrobić?
Wstawiam obrazek: app.Application.Worksheets(zakl).Pictures.Insert ("C:\AutoRaportXL\rys1.bmp")
Pojawia się w Excell-u ale jak go przeskalować i jak go przesunąć w odpowiednie miejsce?
Robił ktoś coś takiego?

Pozdrawiam
Daniel

[siwy5]

PONAWIAM PYTANIE. Robił ktoś coś podobnego?

[siwy5]

ZROBIŁE. Pomocne okazało się rejestrowanie makra w EXCElu

mstream.Write rst!DAB_Dane
mstream.SaveToFile "C:\TEMP\MiniProdukt.bmp", adSaveCreateOverWrite
app.Application.Worksheets(zakladka).Range("A" & CStr(i)).Select
app.Application.ActiveSheet.OLEObjects.Add(Filename:="C:\TEMP\MiniProdukt.bmp", Link:=False, DisplayAsIcon:=False).Select
app.Application.Selection.ShapeRange.IncrementTop 2 '-0.75
app.Application.Selection.ShapeRange.ScaleWidth 0.28, -1, 0 'msoFalse=-1, msoScaleFromTopLeft =0
app.Application.Selection.ShapeRange.ScaleHeight 0.28, -1, 0 'msoFalse, msoScaleFromTopLeft
app.Application.Selection.ShapeRange.Line.ForeColor.SchemeColor = 9
app.Application.Worksheets(zakladka).cells(i, 2).Value = rst!Twr_Kod
app.Application.Worksheets(zakladka).cells(i, 3).Value = rst!Twr_Nazwa

[siwy5]

Może się komuś przyda.
Temat zamknięty
Pozdrawiam