1 Тема от Cablemaster

  • Cablemaster
  • рядовой
  • Неактивен
  • Зарегистрирован: 04.02.2010
  • Сообщений: 5

Тема: Нужно рисунки с наложенными на рисунки формами конвертировать все в ри

Есть файл в кототором есть рисунки, на рисунки вставлены тексты из Фигур
Также на рисунки могут быть добавлены линии или прямоугольники и т.д.
Нужно рисунки с наложенными на рисунки Фигурами и Текстами конвертировать  просто в рисунки
Как это можно сделать?
Спасибо за помощь

Отредактировано Cablemaster (04.02.2010 03:45:42)

2 Ответ от Akhiles

  • Akhiles
  • сержант
  • Неактивен
  • Зарегистрирован: 14.01.2010
  • Сообщений: 15

Re: Нужно рисунки с наложенными на рисунки формами конвертировать все в ри

Если, текст динамически не меняется, почему бы не подготовить шаблон в CorelDraw, а потом просто вставлять его через OLE?

Нет дверей которые не открываются. Любая задача имеет минимум 2 решения.

3 Ответ от admin

  • Нужно рисунки с наложенными на рисунки формами конвертировать все в ри
  • admin
  • Администратор
  • Неактивен
  • Откуда: Земля
  • Зарегистрирован: 15.12.2009
  • Сообщений: 508
  • Поблагодарили: 39

Re: Нужно рисунки с наложенными на рисунки формами конвертировать все в ри

Покажите ваш файл, чтобы понять о чем речь. Скорее всего вам нужно переконвертировать объекты Shape (автофигуры) в InlineShape (рисунки). Посмотрите вот эту заметку: Преобразование объектов Shape в InlineShape.

Сайтadmin

4 Ответ от Cablemaster

  • Cablemaster
  • рядовой
  • Неактивен
  • Зарегистрирован: 04.02.2010
  • Сообщений: 5

Re: Нужно рисунки с наложенными на рисунки формами конвертировать все в ри

Akhiles пишет:

Если, текст динамически не меняется, почему бы не подготовить шаблон в CorelDraw, а потом просто вставлять его через OLE?

Есть как минимум с 10-ок решений, но к сожалению, один оптимальный.
Совет лишен смысла, спасибо.

5 Ответ от Cablemaster

  • Cablemaster
  • рядовой
  • Неактивен
  • Зарегистрирован: 04.02.2010
  • Сообщений: 5

Re: Нужно рисунки с наложенными на рисунки формами конвертировать все в ри

admin пишет:

Покажите ваш файл, чтобы понять о чем речь. Скорее всего вам нужно переконвертировать объекты Shape (автофигуры) в InlineShape (рисунки). Посмотрите вот эту заметку: Преобразование объектов Shape в InlineShape.

Файл даже не нужен.
Берем любой файл, вставляем любой рисунок, вставляем текстовую фигуру на рисунок.
Запускаем макрос на который Вы ссылаетесь
Все равно остаются два объекта - рисунок и текст на рисунке, а хотелось бы конвертировать в один объект.
Может есть объединение объектов ?

6 Ответ от rizalut

  • rizalut
  • подполковник
  • Неактивен
  • Зарегистрирован: 05.01.2010
  • Сообщений: 108
  • Поблагодарили: 1

Re: Нужно рисунки с наложенными на рисунки формами конвертировать все в ри

1. Выделяете все, что нужно превратить в рисунок.
2. Удаляете выделенное в буфер.
3. В меню "Вставить" -> "Специальная вставка", отмечаем "Вставить как рисунок".

1. Вручную, как я понимаю.
2. Selection.Cut
3. Selection.PasteSpecial Method

Отредактировано rizalut (15.02.2010 19:05:07)

7 Ответ от Cablemaster

  • Cablemaster
  • рядовой
  • Неактивен
  • Зарегистрирован: 04.02.2010
  • Сообщений: 5

Re: Нужно рисунки с наложенными на рисунки формами конвертировать все в ри

rizalut пишет:

2. Selection.Cut
3. Selection.PasteSpecial Method


Спасибо. Идея интересная.
Только в 2007 не могу найти в меню "Специальная вставки" и соотвественно не знаю, как правильно написать команду в 3-ем пункте.
Буду рад за подсказку, где это искать в 2007?

По хелпу написал, но на 3-ей команде PasteSpecial выдает ошибку отладчик
Selection.Cut
Selection.Collapse Direction:=wdCollapseStart
Selection.PasteSpecial DataType:=wdPasteBitmap

8 Ответ от Cablemaster

  • Cablemaster
  • рядовой
  • Неактивен
  • Зарегистрирован: 04.02.2010
  • Сообщений: 5

Re: Нужно рисунки с наложенными на рисунки формами конвертировать все в ри

Cablemaster пишет:
rizalut пишет:

2. Selection.Cut
3. Selection.PasteSpecial Method


Спасибо. Идея интересная.
Только в 2007 не могу найти в меню "Специальная вставки" и соотвественно не знаю, как правильно написать команду в 3-ем пункте.
Буду рад за подсказку, где это искать в 2007?

По хелпу написал, но на 3-ей команде PasteSpecial выдает ошибку отладчик
Selection.Cut
Selection.Collapse Direction:=wdCollapseStart
Selection.PasteSpecial DataType:=wdPasteBitmap

Вообщем, настроил команду 3-ую
Selection.PasteSpecial Link:=False, DataType:=wdPasteOLEObject, Placement _
        :=wdInLine, DisplayAsIcon:=False
Все сработало

Спасибо еще раз за отлчиную идею !!!