Профессиональные приемы работы в Microsoft Excel

Пожалуйста, войдите или зарегистрируйтесь.


Расширенный поиск  

Новости:

Читайте новые сообщения форума форума в RRS-агрегаторах

Автор Тема: рамки вокруг объектов  (Прочитано 6034 раз)

0 Пользователей и 1 Гость просматривают эту тему.

CooLer

  • Пользователь
  • **
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 10
рамки вокруг объектов
« : 24.07.2008, 15:18:53 »

 Спецы, подскажите как макросом нарисовать рамку вокруг картинки (вставленной в Word).
 При записи макроса и отработке соответсвующих действий руками, ничего не записывается =(
Записан

Шпец Докапыч

  • Ветеран
  • *****
  • Уважение: +189/-4
  • Оффлайн Оффлайн
  • Сообщений: 1 919
  • ОБЛАДАТЕЛЬ УНИКАЛЬНЫХ НАВЫКОВ!!! :)
Re: рамки вокруг объектов
« Ответ #1 : 24.07.2008, 17:05:11 »

При записи макроса и отработке соответсвующих действий руками, ничего не записывается =(

Здесь стоит обратить внимание на два момента:
  • если НИЧЕГО не записывается (даже пустой Sub Макрос1()…End Sub), то надо искать там, куда выбрали: в начале записи есть пункт "Макрос доступен для:..."
  • если НИКАК не записывается, т.е. не вызывается контекстное меню картинки по ПКМ, то, вместо этого, выбираем меню "Формат" -> Границы и заливка...
Записан
Знания недостаточно, необходимо применение. Желания недостаточно, необходимо действие. (с) Брюс Ли

CooLer

  • Пользователь
  • **
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 10
Re: рамки вокруг объектов
« Ответ #2 : 27.07.2008, 10:47:22 »

В том и проблемма, что запись макроса идёт, но в нём кроме "sub макрос2 и end sub " ничего не появляется. При выполнении других операций (не связанный с меню формат) всё пишется корректно.
Записан

Шпец Докапыч

  • Ветеран
  • *****
  • Уважение: +189/-4
  • Оффлайн Оффлайн
  • Сообщений: 1 919
  • ОБЛАДАТЕЛЬ УНИКАЛЬНЫХ НАВЫКОВ!!! :)
Re: рамки вокруг объектов
« Ответ #3 : 27.07.2008, 14:15:57 »

Давайте попробуем вместе, пошагово (вдруг что-то было упущено):
  • выделили рисунок;
  • включили запись - Макрос доступен для: Документ1 (документ);
  • Формат -> Границы и заливка;
  • Применить к: рисунку;
  • выбрали рамку -> ОК;
  • остановили запись;
  • Alt+F11 -> Modules -> NewMacros;
  • видим Макрос1 (см. вложение).

Теперь, способ номер два:
  • в формате рисунка меняем Положение: перед текстом;
  • включаем макрорекордер;
  • заходим в формат рисунка через контекстное меню (ПКМ);
  • что-нибудь меняем;
  • останавливаем запись;
  • видим Макрос2 (см.вложение).

PS: Раньше я так шпоры делал (не себе, естественно – себе по-другому :)) быстро. Загружал полсотни отсканированных листов, подбирал размер для одной картинки, а потом кодом размножал на остальные.
Записан
Знания недостаточно, необходимо применение. Желания недостаточно, необходимо действие. (с) Брюс Ли

CooLer

  • Пользователь
  • **
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 10
Re: рамки вокруг объектов
« Ответ #4 : 28.07.2008, 10:37:41 »

 Ни один из вариантов не работает. Может это связано с 2007 офисом. При записи макроса ПКМ не работает. Изменения во вкладке формат в макрос не пишутся. Что-бы не делал запись в макросе пустая (sub макрос1 ' ' ' ' and sub).
 С остальной частью макроса разобрался. Теперь осталась только обработка рисунка, но из-за не знания команд VBA не могу с ним ничего сделать.
Записан

CooLer

  • Пользователь
  • **
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 10
Re: рамки вокруг объектов
« Ответ #5 : 28.07.2008, 12:33:36 »

Шпец Докапыч
Понял в чём косяк. При вставке объекта он остаётся неактивным.
« Последнее редактирование: 28.07.2008, 13:17:32 от CooLer »
Записан

Шпец Докапыч

  • Ветеран
  • *****
  • Уважение: +189/-4
  • Оффлайн Оффлайн
  • Сообщений: 1 919
  • ОБЛАДАТЕЛЬ УНИКАЛЬНЫХ НАВЫКОВ!!! :)
Re: рамки вокруг объектов
« Ответ #6 : 28.07.2008, 13:58:05 »

Понял в чём косяк. При вставке объекта он остаётся неактивным.

Т.е. если досконально следовать предложенной мной очерёдности, всё ОК? Вопрос закрыт?
Записан
Знания недостаточно, необходимо применение. Желания недостаточно, необходимо действие. (с) Брюс Ли

CooLer

  • Пользователь
  • **
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 10
Re: рамки вокруг объектов
« Ответ #7 : 29.07.2008, 10:07:16 »


Т.е. если досконально следовать предложенной мной очерёдности, всё ОК? Вопрос закрыт?

Да, спасибо огромное за помощь. Остался только такой вопрос, как сделать его активным. Могу прислать свой макрос, если это надо (за его кривость не ругайте, он у меня первый =)).
Записан

Шпец Докапыч

  • Ветеран
  • *****
  • Уважение: +189/-4
  • Оффлайн Оффлайн
  • Сообщений: 1 919
  • ОБЛАДАТЕЛЬ УНИКАЛЬНЫХ НАВЫКОВ!!! :)
Re: рамки вокруг объектов
« Ответ #8 : 29.07.2008, 12:56:19 »

Как сделать его активным?

Лучше в момент вставки привязать переменную и уже от неё управлять форматом, например:
Sub SH_UprKart()
Dim MyPict As Object
  Set MyPict = Selection.InlineShapes.AddPicture("C:\01.jpg") 'вставили рисунок
  With MyPict 'добавили рамки
    .Borders(-1).LineStyle = 9
    .Borders(-2).LineStyle = 9
    .Borders(-3).LineStyle = 10
    .Borders(-4).LineStyle = 10
  End With
End Sub

Либо можно поочерёдно пролистать все рисунки в тексте:
Sub SH_SmallPict()
Dim i As InlineShape
  For Each i In ActiveDocument.InlineShapes
    i.Height = 55 'сделали все маленькими
    i.Width = 75
  Next
End Sub
Записан
Знания недостаточно, необходимо применение. Желания недостаточно, необходимо действие. (с) Брюс Ли

CooLer

  • Пользователь
  • **
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 10
Re: рамки вокруг объектов
« Ответ #9 : 01.08.2008, 11:24:57 »

 Спасибо огромное. Первый вариант не подошёл , так как рисунок искался по переменной у которой уже есть значение. А второй с добавлением границ очень помог. Спасибо!

  Получилось создать из excel новый ворд документ, отформатировать, впаять в него рисунок (имя берётся из таблицы excel) с рамками. =)
Записан
 



Темы без ответов

09.08.2019 14:09 Макрос для заполнения таблиц через форму 143
18.07.2019 16:02 Рассылка почты из Excel при помощи почтовой программы TheBAT! 157
09.07.2019 20:39 Кредит с уменьшением периода выплат 204
28.05.2019 21:09 Сделать несколько скриптов для рабочей таблицы 538
05.03.2019 17:00 Последовательный вывод таблиц Excel в один документ Word без шаблона 848
05.03.2019 09:29 Нежелательные изменение размеров колонтитула при редактировании 622
07.02.2019 01:36 Как удалить дубликаты из выпадающего связанного списка? 756
20.01.2019 12:38 Все варианты частичного суммирования 932
13.01.2019 12:24 Заполнение диапазона числами - в виде кластеров 773
30.09.2018 10:24 Расчет процентов за определенный период (месяц) с учетом изменений и платежей 1183





Яндекс цитирования msexcel.ru Яндекс.Метрика

Страница сгенерирована за 0.178 секунд. Запросов: 115.