Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / как в VBA написать "изменит рисунок" / 13 сообщений из 13, страница 1 из 1
07.12.2004, 10:26
    #32815831
Galustov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как в VBA написать "изменит рисунок"
как средствами VBA выполнить действие, которое появляется после нажатия правой клавишей мыши на внедрённый рисунок ("изменить рисунок")?
Макрос не записывает это действие автоматически, так что посмотреть не получилось, а найти никак не могу.

Спасибо
...
Рейтинг: 0 / 0
07.12.2004, 11:39
    #32816087
Ирча
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как в VBA написать "изменит рисунок"
ActiveDocument.Shapes.SelectAll
...
Рейтинг: 0 / 0
07.12.2004, 12:12
    #32816196
Galustov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как в VBA написать "изменит рисунок"
ИрчаActiveDocument.Shapes.SelectAll
это что?
вообще-то у меян в документе не shapes а inlineshapes - это раз
во-вторых "ActiveDocument.Shapes.SelectAll" это просто выделение всех шейпов, а мне надо сделать действие "изменить рисунок"

почему-то я никак не могу найти эту команду в VBA. получается, что OLEFormat.Edit не работает, так как ворд думает, что inlineshape имеет тип 3 (wdInlineShapePicture), а для этого типа OLEFormat.Edit не работает.
Но нажатием правой кнопки всё срабатывает! В чём заковыка?

Спасибо
...
Рейтинг: 0 / 0
07.12.2004, 12:19
    #32816215
Ирча
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как в VBA написать "изменит рисунок"
Ну я не знаю как у тебя, а у меня в верде такое выделение как раз и дает такой же результат, как если шмакнуть правой кнопкой и выбрать изменить рисунок
...
Рейтинг: 0 / 0
07.12.2004, 12:28
    #32816249
Galustov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как в VBA написать "изменит рисунок"
ИрчаНу я не знаю как у тебя, а у меня в верде такое выделение как раз и дает такой же результат, как если шмакнуть правой кнопкой и выбрать изменить рисунок
значит у тебя shapes есть в файле, а у меня ниодного, все inlineshapes...
...
Рейтинг: 0 / 0
07.12.2004, 12:49
    #32816310
Ирча
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как в VBA написать "изменит рисунок"
InlineShape objects in a document, range, or selection. Read-only.
А может добавить их в Shape?
Или нужны именно внедренные?
...
Рейтинг: 0 / 0
07.12.2004, 12:53
    #32816326
Galustov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как в VBA написать "изменит рисунок"
ИрчаInlineShape objects in a document, range, or selection. Read-only.
А может добавить их в Shape?
Или нужны именно внедренные?

фишка в том, что это мне такие документы присылают, я их сам не формирую... там, не поверишь, внутри внедрённого объекта данные формируются с помощью shapes, а потом как-то группируются и получается inlineshape (таблица с детализацией звонков по мобильнику)... внутри я вроде с отдельными объектами программно разобрался, а вот как перед началом работы автоматически сделать действие "изменить рисунок" никак не могу сообразить. делать через нажатие кнопки меню пока не хочется - по-дурацки как-то, но на худой конец и рак рыба :)
в итоге хочу сделать автоматическую переброску дебильных данных из ворда в ексель, чтобы можно было работать с таблице (посчитать что-то, сгруппировать звонки и т.д.)

ручки бы оторвал тому, кто изначально такой отчёт делает!!!
...
Рейтинг: 0 / 0
07.12.2004, 13:16
    #32816391
Ирча
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как в VBA написать "изменит рисунок"
Ты знаешь, мне уже интересно :-)
Если хочешь, кинь пример документа на мыло, я ничего не обещаю, но покапаюсь
...
Рейтинг: 0 / 0
07.12.2004, 14:27
    #32816594
Galustov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как в VBA написать "изменит рисунок"
ИрчаТы знаешь, мне уже интересно :-)
Если хочешь, кинь пример документа на мыло, я ничего не обещаю, но покапаюсь
а какой у тебя майл?
...
Рейтинг: 0 / 0
07.12.2004, 15:16
    #32816742
Ирча
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как в VBA написать "изменит рисунок"
Он на нике открыт
...
Рейтинг: 0 / 0
08.12.2004, 09:13
    #32817784
Ирча
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как в VBA написать "изменит рисунок"
На вскидку,
скопировала рисунок на лист Excelя
и сделала
Selection.ShapeRange.Ungroup.Select
Получается нужный результат
При обратном копировании в верд он сохраняется
Коряво, конечно, но вдруг, пока устроит
...
Рейтинг: 0 / 0
08.12.2004, 13:18
    #32818582
Ирча
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как в VBA написать "изменит рисунок"
ActiveDocument.InlineShapes(1).Activate
Мало того что срабатывает как изменить рисунок, еще и менюшку изменения рисунка разварачивает
...
Рейтинг: 0 / 0
10.12.2004, 14:54
    #32823390
Galustov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как в VBA написать "изменит рисунок"
2 Ирча
Добрый ден.
До этого я тоже докапался... Так, блин, внутри группы очень много пустых текстбоксов и все вразнобой... думаю, может по относительному расположению размещать в клетках екселя...
но пока не реализовал - только обдумываю, работы много навалили.
Спасибо
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / как в VBA написать "изменит рисунок" / 13 сообщений из 13, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]