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

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

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

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

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

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


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