Размер картинки в таблице Word... / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Размер картинки в таблице Word...

1 сообщений из 1, страница 1 из 1

Размер картинки в таблице Word...

#34828614

Nitrolis

Гость

Что-то сегодня особенно туплю... сори!
Простенькая задачка: есть табличка в файле Word в которую надо загнать в определенные ячейки картинки из каталога...

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.

Sub pic_add()
On Error Resume Next
ActiveDocument.Tables( 1 ).Select
Selection.Cells.VerticalAlignment = wdCellAlignVerticalTop
For i =  2  To ActiveDocument.Tables( 1 ).Rows.Count
 art = Left(ActiveDocument.Tables( 1 ).Cell(i,  2 ),  6 )
 If Len(art) >  2  Then
  ActiveDocument.Tables( 1 ).Cell(i,  4 ).Select
     Selection.InlineShapes.AddPicture FileName:="c:\image\" & art & ".JPG", _
        LinkToFile:=False, SaveWithDocument:=True
 End If
Next
End Sub

Все казалось просто до сегодняшнего дня: картинки были все одного размера и успешно занимали свое место в табличке, однако, теперь размер картинок будет произвольным и необходимо его приводить к единому ПО ШИРИНЕ с сохранением пропорций (ПО ВЫСОТЕ)... не могу понять, как это сделать(((
Подскажите, плиз...

WORD2003

...

Рейтинг:

0 / 0

26.09.2007, 16:44

| Ответить | Цитировать | Написать

1 сообщений из 1, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Размер картинки в таблице Word...

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&gotonew=1&tid=2163347]:	0ms
get settings:	8ms
get forum list:	16ms
check forum access:	4ms
check topic access:	4ms
track hit:	32ms
get topic data:	11ms
get first new msg:	6ms
get forum data:	3ms
get page messages:	39ms
get tp. blocked users:	2ms
others:	209ms

total:	334ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы