W kodzie ACCESS-a Wstawienie obrazka z pliku do EXCELLa

Thread View: pl.comp.bazy-danych.msaccess

4 messages

[T] Back to Threads [V] Tree View [G] Group Articles

4 total messages Started by siwy5 Fri, 25 Jun 2021 08:23

#137828

Author: siwy5
Date: Fri, 25 Jun 2021 08:23

9 lines
1625 bytes

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

Re: W kodzie ACCESS-a Wstawienie obrazka z pliku do EXCELLa

#137832

Author: siwy5
Date: Thu, 30 Sep 2021 12:37

11 lines
1882 bytes

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?

Re: W kodzie ACCESS-a Wstawienie obrazka z pliku do EXCELLa

#137809

Author: siwy5
Date: Tue, 12 Oct 2021 07:39

26 lines
2924 bytes

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

Re: W kodzie ACCESS-a Wstawienie obrazka z pliku do EXCELLa

#137800

Author: siwy5
Date: Tue, 12 Oct 2021 07:40

28 lines
3044 bytes

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

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads