Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как правильно указать путь к картинке в VBA
 
#1
13.08.2016 13:20:55
Доброго времени суток.  Ситуация в следующем. Записал макрос на добавление картинок из папки в таблицу Excel. На моем компьютере все работает на ура, но стоит мне передать файл Excel с папкой где находятся картинки другому человеку что бы тот открыл у себя на компьютере этот документ и макросы начинают ругаться на неправильный путь к картинкам. Как быть?
Код
 Range("A5").Select
    ActiveSheet.Pictures.Insert( _
        "\\SRV\RedirectedFolders\Kostin\Desktop\Выгрузка Данных\ThPicture\1.469700284262E9.jpg" _
        ).Select
собственно вот код который прописан в макросе
 
 
 
#2
13.08.2016 13:30:25
Может у "другого" человека просто нет такого пути? )
 
 
 
#3
13.08.2016 13:32:50
это я понимаю. Как сделать так что бы любой мог открыть?
Может быть как то надо сохранить по другому ?  
 
 
 
#4
13.08.2016 13:36:28
Не задавайте путь абсолютно - укажите относительно книги, содержащей макрос, а папку с фото сохраняйте, например, туда же, где находится и сама книга.
 
 
 
#5
13.08.2016 13:50:30
Влад , либо я чего то не догоняю либо не работает  
 
 
 
#6
13.08.2016 13:51:25
обычно это делается так:
в папке, в которой находится книга создается доп. папка с заранее определенным именем, допустим в Вашем случае Pictures
в эту папку складываете все необходимые картинки

правилом эксплуатации системы теперь становиться наличие папки Pictures с определенным содержимым в той же папке что и файл с макросм.

в макросе:
Код
  cons pf$ = "Pictures"
  Dim PicPath$
  PicPath = ThisWorkbook.Path & Application.PathSeparator & pf & Application.PathSeparator
  ...
  ActiveSheet.Pictures.Insert(PicPath & "1.469700284262E9.jpg").Select
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#7
13.08.2016 15:18:00
Игорь Гончаренко, может я что то не так сделал но все равно выдает ошибку
 
 
 
#8
13.08.2016 15:21:21
Const
 
 
 
#9
13.08.2016 15:35:04
После исправления ошибки на другом компьютере все равно не хочет выгружать фото из папки
Вот файл как пример
 
 
 
#10
13.08.2016 16:07:48
Цитата
правилом эксплуатации системы теперь становиться наличие папки Pictures с определенным содержимым в той же папке что и файл с макросм.
на другом компьютере тоже должна быть папка Pictures с теми же файлами
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#11
13.08.2016 16:09:10
Игорь Гончаренко, Так я по почте отправляю архивом (пример того как направляется кинул выше) файл ексел и папку с фото  
 
 
 
#12
13.08.2016 16:12:07
на другом компьютере файл Тест следует загружать не из архива, а все данные выложить на диск, а потом уже загружать Тест в Excel
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#13
13.08.2016 16:15:20
все равно не работает. Как будет возможность поэкспериментируйте с прикрепленным мной выше образцом
 
 
 
#14
13.08.2016 16:28:52
однако...

у вас в макросе
Код
    Const pf$ = "FOTO"
    Dim PicPath$
    PicPath = ThisWorkbook.Path & Application & pf & Application.PathSeparator
        ActiveSheet.Pictures.Insert( _

       "\\SRV\RedirectedFolders\Kostin\Desktop\Âûãðóçêà Äàííûõ\FOTO\
Код
1.469704678726E9.jpg" _
        ).Select
    Range("L24").Select

в моем примере PathSeparator:
Код
  cons pf$ = "Pictures"
  Dim PicPath$
  PicPath = ThisWorkbook.Path & Application.PathSeparator & pf & Application.PathSeparator
  ...
  ActiveSheet.Pictures.Insert(PicPath & "1.469700284262E9.jpg").Select

за исключением опечатки в слове cons, найдите 10 отличий, между тем что Вам предложено и тем что Вы написали
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#15
13.08.2016 17:32:44
Игорь Гончаренко, Спасибо! Заработало.  
 
 
 
Страницы: 1
Читают тему
Наверх