Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VBA выполнение SQL запроса на на действующей базе https://www.cyberforum.ru/ vba/ thread2768585.html
Помогите написать макрос, который должен выполнить скрипт в SQL базе. Сам запрос находится на листке "Скрипт", а результаты выполнения SQL запроса, записать на листья "Accruals" и "Unknown...
VBA #Н/Д
А как можно #Н/Д заменить на "Нет данных" ? Добавлено через 7 минут формула в ячейке =ВПР(C9;Данные!A2:B8105;2;0)
выпадющий календарь VBA
имеется код на выпадающий календарь но так как на работе заблочены макросы запускать коды удается только в документах формата xls поэтому макросы приходится постояно вручную добавлять модули но...
VBA Не закрывается экземпляр Word всем доброго есть макрос. Он открывает файл Ворд. Заменяет в нем значение и сохраняет. все это происходит в цикле. но почему то на втором круге ворд пишет что файл занят пользователем. в диспетчере... https://www.cyberforum.ru/ vba/ thread2768389.html
VBA Позднее связывание ms outlook https://www.cyberforum.ru/ vba/ thread2768382.html
всем доброго и с праздниками. имеется код. как сделать чтобы не подключать библиотеку MS outlook 16 - я так понимаю воспользоваться поздним связыванием . пробовал Dim appOutLook As object Dim...
Поиск слов в Word-е между другими VBA
День добрый стоит задача - проанализировать выписки и ЕГРЮЛ этап 1 - забираю текст и выписки в формате *.pdf Public Function Макрос_1() 'преобразование *.pdf Dim oWrd As word.Application Dim...
Если 0 VBA
Помогите с кодом Если значение в ячейке B2 0 тогда Mgsbox"Error"
VBA Вставить буквы перед цифрами Можно ли чтобы перед цифрами вставлялись буквы ЛМ, Например: у меня вот так 85563322 Хочу вот так ЛМ 85563322 Формула в ячейке =C3 https://www.cyberforum.ru/ vba/ thread2767589.html
VBA Открыть ворд файл - для редактирования https://www.cyberforum.ru/ vba/ thread2767586.html
здравствуйте, делал миллион раз, правда давно)) Documents.Open FileName:=f, ReadOnly:=True в f у меня: F:\Читальный зал.01.2021\12.rtf говорит об ошибке 13-подскажите как правильно и как именно...
VBA Вставить буквы перед цифрами Можно ли чтобы перед цифрами вставлялись буквы ЛМ, Например: у меня вот так 85563322 Хочу вот так ЛМ 85563322 Формула в ячейке =C3 https://www.cyberforum.ru/ vba/ thread2767578.html
VBA Расставление чисел с условием https://www.cyberforum.ru/ vba/ thread2767105.html
Здраствуйте помогите мне доделать макрос (pr).Я уже сделал часть. Макрос уже определяет стартовую позицию, но теперь нужно чтобы он выставлял числа из поля (синий) в массиве чисел согласно меньшему...
VBA Определить количество членов последовательности, которые при делении на 7 дают остаток 1, 2 Даны натуральные числа n, а1, а2, . an Определить количество членов последовательности: которые при делении на 7 дают остаток 1, 2. https://www.cyberforum.ru/ vba/ thread2767022.html
1 / 1 / 0
Регистрация: 13.09.2018
Сообщений: 92
13.01.2021, 14:48  [ТС] 0
Word

Изменение размера картинок по заданным условиям

13.01.2021, 14:48. Показов 1028. Ответов 3
Метки (Все метки)

Ответ

Цитата Сообщение от Vlad999 Посмотреть сообщение
If iShape.Width<180 Then ......
Не выходит... Изучаю If Else
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Sub Макрос1()
Dim iShape As InlineShape
For Each iShape In Selection.InlineShapes
newW = 180
WH = iShape.Width / iShape.Height
If iShape.Width > newW Then iShape.Width = MillimetersToPoints(newW)
iShape.Height = MillimetersToPoints(newW / WH)
Next iShape
Else
Next iShape
End If
End Sub


Вернуться к обсуждению:
Изменение размера картинок по заданным условиям
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.01.2021, 14:48
Готовые ответы и решения:

Вывод чисел по заданным условиям
написать программу которая запрашивает целое число, если число больше 10 то к нему +1, если меньше...

Заполнение дерева по заданным условиям
Здравствуйте! Мне нужно заполнить дерево по заданным условиям, но я не знаю как это сделать,...

Соответствует ли последовательность заданным условиям
Ввести N чисел, проверить, являются ли введенные числа перестановкой {1,2,3,4,.....,2*n-1}. А...

Сгенерировать пароль по заданным условиям
Необходима программа на паскале которая, генерировала пароль для пользователя. Требования: длина от...

3
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.