Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Просмотр изображений в форме Word, перебор файлов в папке 
:(
    Опции темы
SeregaCoder
Дата 26.11.2012, 19:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 26.11.2012

Репутация: нет
Всего: нет
Всем доброго времени суток!
Вопрос такой: на пользовательской форме в Word имеется компонент Image. Первоначально изображения в него загружаются при помощи диалогового окна "Вставка изображения":
Код


Private Sub CmdBtnOpenPicture_Click()

   With Dialogs(wdDialogInsertPicture) 'Вызываем диалог выбора рисунка
                Result = .Display 'При выборе файл не откроется
                myfile = .Name 'Запоминаем имя файла
   End With

Image.Picture = LoadPicture(myfile)

End Sub


А далее необходимо с помощью кнопок "Вперед" и "Назад" просматривать фотографии из этой папки как это делается во всех просмотрщиках.
Подскажите, как это можно реализовать средствами VBA. Не представляю с чего начать, 2 дня поисков в интернете ничего не дали smile 
PM MAIL   Вверх
DviRUS
Дата 26.11.2012, 20:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Капыч
**


Профиль
Группа: Участник
Сообщений: 330
Регистрация: 24.10.2006
Где: Волгоград

Репутация: нет
Всего: 5
SeregaCoder, Извини, настораживает твой счетчик сообщений. Скинь программу, я попробую сделать то что (как я понял) тебе нужно.


--------------------
Это не только мерзко, но и невозможно! (с)
PM MAIL ICQ Skype   Вверх
SeregaCoder
Дата 27.11.2012, 11:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 26.11.2012

Репутация: нет
Всего: нет
А чего настораживает? 307 сообщений назад у тебя был такой же счетчик... Или нет? smile 
А по делу -- вот мой файл со встроенным макросом. Для перелистывания фотографий там установлен SpinButton, но, конечно, его можно заменить на два CommandButtona.

Присоединённый файл ( Кол-во скачиваний: 3 )
Присоединённый файл  Мой_файл.doc 55,50 Kb
PM MAIL   Вверх
DviRUS
Дата 27.11.2012, 14:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Капыч
**


Профиль
Группа: Участник
Сообщений: 330
Регистрация: 24.10.2006
Где: Волгоград

Репутация: нет
Всего: 5
Цитата(SeregaCoder @  27.11.2012,  11:09 Найти цитируемый пост)
А чего настораживает?

Мне тогда тоже никто неверил ;)

Ща глянем.

Времени нет, извеняюсь. либо позже.

Это сообщение отредактировал(а) DviRUS - 27.11.2012, 15:10


--------------------
Это не только мерзко, но и невозможно! (с)
PM MAIL ICQ Skype   Вверх
SeregaCoder
Дата 28.11.2012, 04:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 26.11.2012

Репутация: нет
Всего: нет
Есть у меня одна мысль: При помощи Dir получить список файлов из папки, загнать его в массив и перебирать элементы массива по индексу. Но этот способ мне кажется громоздким и неуклюжим, может быть можно сделать как-то красивее?
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела

Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0437 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.