Teraz to mi glupio :). Probowalem tak samo tylko zamiast msoFalse, msoTrue uzywalem False, True i ciagle mialem error "Wrong number of arguments or invalid property assignment". I Nie moglem dojsc co jest nie tak i z ktorym argumentem w skladni jest problem. Co najdziwniejsze to po sprawdzeniu twojego kodu sprobowalem jeszcze raz z moim (bez poprawiania niczego) i teraz dziala bez zadnych bledow... To chyba skutek zbyt intensywnego siedzenia przed kompem. Jeszcze raz dzieki za pomoc! Pozdrawiam.
napisał: Trebor postów: 1209
umieszczony: 29 marca 2012 17:48
Czy tak wystarczy:
If Dir(Filename) <> "" Then
.Shapes.AddPicture Filename, msoFalse, msoTrue, 0, 0, 200, 396.8503937008 EndIf
napisał: winett postów: 5
umieszczony: 29 marca 2012 12:31
edytowany: 29 marca 2012 13:01
Uzywam Microsoft office professional plus 2010. Trebor, moglbys do wczesniejszego kodu dopisac kawalek wycinajacy i wstawiajacy kolejne zdjecia w petli? Moze mozna uzyc komendy .AddPicture zamiast Pictures.Insert? Probowalem sam cos z tym zrobic ale niestety nie daje rady ... Dzieki i Pozdrawiam.
napisał: Trebor postów: 1209
umieszczony: 28 marca 2012 20:49
Która to wersja Excela?
W 97 i 07 tak się nie dzieje. Pewnie u Ciebie są wstawiane połączenia do grafiki. Na razie przyszło mi do głowy kopiowanie i wklejanie specjalnie.
Jednak, może ktoś ma lepsze rozwiązanie?
napisał: winett postów: 5
umieszczony: 27 marca 2012 22:51
Mozna jeszcze prosic a zmiane ponizszego kodu w taki sposob aby wyswietlone w zakladkach zdjecia nie znikaly po skasowaniu lub przeniesieniu folderu skad zdjecia zostaly pobrane? Dzieki.
napisał: winett postów: 5
umieszczony: 24 marca 2012 10:26
Dziala poprawnie, dzieki wielkie za pomoc!!!
napisał: Trebor postów: 1209
umieszczony: 18 marca 2012 07:42
Sprawdź poniższy kod:
Sub fota() Dim Filename$, i%
For i = 3 To Sheets.Count With Sheets(i)
Filename = "C:\Documents and Settings\Admin\Pulpit\Grafika\" & Sheets(i).Name & ".jpg"
If Dir(Filename) <> "" Then With .Pictures.Insert(Filename).ShapeRange
.Height = 396.8503937008
.Top = 0
.Left = 0 EndWith EndIf
EndWith Next i EndSub
napisał: winett postów: 5
umieszczony: 17 marca 2012 23:21
edytowany: 17 marca 2012 23:29
Witam,
jak w temacie, mam krotkie makro ktore wstawia zdjecie z podanej lokalizacji do zakladki o tej samie nazwie co nazwa zdjecia a nastepnie zmienia jego wysokosc. Problem w tym ze zdjecie jest wstawiane tylko do pierwszej zakladki gdzie makro poprawnie zmienia wysokosc zdjecia, natomiast w drugiej zakladce zdjecie jest wstawiane, ale makro juz nie zmienia jego wysokosci, tylko sie wylacza z bledem: "object dosent suport this property or method". Makro napisalem jakis tydzien wczesniej i dalbym glowe ze wszystko wowczas dzialalo. Prosze o pomoc, moze da sie jakos zaznaczyc jeszcze raz juz wstawione zdjecie w danej zakladce? Niestey nie potrafie sobie z tym poradzic. Z gory dziekuje za pomoc ! Kod:
Dim Filename$
For i = 3 To Sheets.Count
With Sheets(i)
Filename = "C:\Template LOS Report\" & Sheets(i).Name & " .jpg"
If FileExists(Filename) = True Then
Cells(1, 1).Select
Sheets(i).Pictures.Insert(Filename).Select
Selection.ShapeRange.Height = 396.8503937008
End If