Janusz K.

Janusz K. Ekspert rozwoju i
przyszłości firm,
struktur, systemów
or...

Temat: Grafika w Excelu

Tu zgłaszaj problemy, jakie masz w pracy z Excelem w stosowaniu elementów graficznych:
- tworzeniem i edycją obiektów graficznych,
- zdjęciami arkusza,
- używaniem grafiki z innych programów
itp.

Nie zapomnij podać wersji programu - to ułatwi znalezienie lekarstwa.
Łukasz K.

Łukasz K. Generalny Agent
marki GEOX na Polskę

Temat: Grafika w Excelu

Prosże o pomoc.

Czy jest jakiś sposób by excel sam automatycznie zaciągną zdjęcia do arkusza. Pracuje na kodach produktów i często potrzebuje dostawić zdjęcie do komorki sąsiadującej z kodem produktu. Zastanawiam się czy jest to możliwe.

Kolejna sprawa to jak zrobić by zablokować zdjęcie w danej komórce?

z gory dziękuję za pomoc :)
Tomasz Gawęda

Tomasz Gawęda Kierownik Zakładu
Produkcyjnego

Temat: Grafika w Excelu

Przetestuj proszę funckję użytkownika


Function obraz(adres As Range)
On Error Resume Next
Set rng = Application.Caller
Worksheets(1).Shapes("obraz_" & adres.Address).Delete
With rng.Worksheet.Shapes
Set shp = .AddShape(msoShapeRectangle, rng.Left, rng.Top, rng.Width, rng.Height)
obr = shp.Name
With rng.Worksheet.Shapes(obr)
.Fill.UserPicture Range(adres.Address)
.Name = "obraz_" & adres.Address
.Placement = xlFreeFloating
End With
End With
End Function


Jak działa:

1. w komórce np. D2 wprowadzasz dokładną scieżkę która wskazuje na plik graficzny, który chcesz wyświetlić w komórce (np. C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\Water lilies.jpg)

2. w komórce np. A2 wprowadzasz =obraz(d2)Tomasz Gawęda edytował(a) ten post dnia 02.10.09 o godzinie 15:22
Łukasz K.

Łukasz K. Generalny Agent
marki GEOX na Polskę

Temat: Grafika w Excelu

Witam,
Przepraszam, ze tak późno odpowiadam, ale tak jakoś wyszło.

Bardzo dziękuję funkcja działa i zaoszcządza bardzo dużo czasu :)

Pozdrawiam
Łukasz

Następna dyskusja:

zaokrąglanie w excelu




Wyślij zaproszenie do