Discussion:
W kodzie ACCESS-a Wstawienie obrazka z pliku do EXCELLa
(Wiadomość utworzona zbyt dawno temu. Odpowiedź niemożliwa.)
siwy5
2021-06-25 08:23:11 UTC
Permalink
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
2021-09-30 12:37:45 UTC
Permalink
Post by 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
PONAWIAM PYTANIE. Robił ktoś coś podobnego?
siwy5
2021-10-12 07:39:27 UTC
Permalink
Post by siwy5
Post by 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
PONAWIAM PYTANIE. Robił ktoś coś podobnego?
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
2021-10-12 07:40:31 UTC
Permalink
Post by siwy5
Post by siwy5
Post by 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
PONAWIAM PYTANIE. Robił ktoś coś podobnego?
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
Może się komuś przyda.
Temat zamknięty
Pozdrawiam

Loading...