🚀 go-pugleaf

wtorek, 12 października 2021 o 09:39:28 UTC+2 siwy5 napisał(a):
> czwartek, 30 września 2021 o 14:37:46 UTC+2 siwy5 napisał(a): 
> > piątek, 25 czerwca 2021 o 10:23:12 UTC+2 siwy5 napisał(a): 
> > > 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