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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> shapes и Range, Как связать рисунок и содержащий его диа 
V
    Опции темы
LOPUH
Дата 19.12.2011, 12:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Растение
*


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

Репутация: 3
Всего: 4



 Имеется много книг,  в которых наряду с данными, хранятся эскизы в виде рисунков.    Для экспорта в БД  нужно как то получить ссылку на рисунок , выбрав диапазон. Либо наоборот  -выбрав рисунок,получить диапазон, поверх которого он лежит. То есть  как связать координаты  фигуры в окне и диапазон?

Присоединённый файл ( Кол-во скачиваний: 2 )
Присоединённый файл  _____1.rar 88,73 Kb
PM MAIL   Вверх
FINANSIST
Дата 19.12.2011, 17:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Статус: Жив
**


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

Репутация: 13
Всего: 23



Лови, если я тебя правильно понял...

Присоединённый файл ( Кол-во скачиваний: 2 )
Присоединённый файл  _____1.zip 179,49 Kb


--------------------
“...Брали корову рыжую одну, отдавать будем корову рыжую одну, чтобы не нарушать отчетности”
Эдуард Успенский, “Каникулы в Простоквашино”
PM MAIL ICQ   Вверх
LOPUH
Дата 20.12.2011, 11:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Растение
*


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

Репутация: 3
Всего: 4



FINANSIST  спасибо, если честно. то не понял через какую функцию происходит связь, так как параллельно приходиться  еще и разбираться  с 2010 офисом ..  до сих пор сидел на 2003 и это грустно....  Наверно я не слишком точно сформулировал задачу, попрбую еще раз.Мне нужна функция( не принципиально VBA  или  Excel) которая, имея на входе  ссылку на рисунок что- то типа  
Код

Set myDocument = Worksheets(1)
For Each sh In myDocument.Shapes
    If sh.Type = msoAutoShape Then
      WorkIt (sh)  
    End If
Next

Function WorkIt (Sh as Shape) As Range
//
//
End Function


должна вернуть диапазон. Если , допустим мы выберем на листе "Шкафы-витрины" рисунок "Рисунок 115"(самый верхний), то на выходе функции должен быть диапазон B3:B7

Присоединённый файл ( Кол-во скачиваний: 1 )
Присоединённый файл  10_______________________________.rar 503,43 Kb
PM MAIL   Вверх
Дмит
Дата 20.12.2011, 12:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 8
Всего: 9



Shapes(1).BottomRightCell
Shapes(1).TopLeftCell
из названий видно какие ячейки (под какими углами) получишь.
из их комбинации получишь весь диапазон.
PM MAIL WWW   Вверх
LOPUH
Дата 20.12.2011, 12:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Растение
*


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

Репутация: 3
Всего: 4



Дмит, спасибо, похоже то что надо. + в репу...
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

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

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

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



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


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

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


 




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


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

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