Ścieżka do grafiki osadzonej w MS Word

Poniższy kod ma swoje źródło w pytaniu na jednym z globalnych forów. Chodziło w nim mniej więcej o uzyskanie ścieżki do pliku źródłowego dla zaznaczonego obrazu umieszczonego w dokumencie aplikacji MS Word.

W sumie rozwiązanie jest proste nie mniej w MS Word mamy do czynienia z dwoma typami obiektów rysunkowych należącymi albo do kolekcji Shapes albo do kolekcji InlineShapes.Poniższy kod dzięki prostej technice obsługi błędów sprawdza oba warianty. Jeżeli obiekt nie należy do pierwszej z kolekcji to sprawdzona zostaje druga. Ostatecznie uzyskamy oczekiwany wynik, a w sytuacji gdy nie został zaznaczony obiekt typu rysunkowego zwrócone zostanie puste okno MsgBox.

view sourceprint?

1	Sub GetFullPath()

2	On Error Resume Next

3	Dim fullPath As String

4	fullPath = Selection.Shapes(1).LinkFormat.SourceFullName

5	fullPath = Selection.InlineShapes(1).LinkFormat.SourceFullName

6	MsgBox fullPath

7

8

End Sub