🚀 go-pugleaf

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