Путь до папки AppData в зависимости от Юзера

[Polotenchik]

Как в макросе указать путь до C:\Users\Пользователь\AppData\Roami ng\Microsoft\Шаблоны\image.png

так, что бы он сам понимал имя пользователя. Просто мало ли понадобится его запустить на другом ПК.

Пробовал прописать:
%LocalAppData%\Microsoft\Шаблоны\im age.png
однако, ругается.

Selection.InlineShapes.AddPicture FileName:= _
        "C:\Users\Пользователь\AppData\Roaming\Microsoft\Шаблоны\image.png", LinkToFile _
        :=False, SaveWithDocument:=True

[Ципихович Эндрю]

1
есть такая папка C:\Users ??
2
а в ней есть папка
Пользователь ??

[Polotenchik]

C:\Users

Есть

а в ней есть папка
Пользователь ??

Нет. В ней есть папка с именем юзера ПК. Например
C:\Users\Вася\AppData\Roaming\Micro soft\Шаблоны\image.png
C:\Users\Петя\AppData\Roaming\Micro soft\Шаблоны\image.png

Вопрос в том, что бы он сам определил имя.

%LocalAppData%\Microsoft\Шаблоны\im age.png
%LocalAppData% сразу переходит по пути:
C:\Users\Пользователь\AppData\Roami ng

[Ципихович Эндрю]

>Вопрос в том, что бы он сам определил имя
дофига делов
ИнпутБокс - в него вводите Пользователя. ОК??
или форму с имеющимися Пользователями для выбора, ОК??

[viter.alex]

Environ("AppData")

[Aent]

Стандартная функция VBA Environ("APPDATA") вернёт значение переменной окружения APPDATA, которая
содержит используемое по умолчанию размещение данных приложений.
В Windows XP это:
C:\Documents and Settings\%UserName%\Application Data.
В Windows 7:
C:\Users\%UserName%\AppData\Roaming
где %UserName% будет именем текущего пользователя.