Поворот изображения на экране иногда происходит в Windows и при случайном нажатии на некое сочетание клавиш.
С апреля 2021-го года наблюдаю удивительное явление: обильный поток посетителей из 4-х социальных сетей. В связи с этим настоятельно рекомендую всем неоднократно и регулярно посещать сайт rtbsm.ru — там в общих чертах изложена Российская Теннисная Балльная Система Марии (Шараповой).
Приглашаю всех полюбоваться на Фото и Видео красавицы Марии — надеюсь, что Вы поделитесь адресом сайта rtbsm.ru с друзьями и знакомыми.
Главная проблема — известить Марию, чтобы она как можно скорее заявила на весь мир о РТБСМ.
Чтобы совершить поворот изображения на экране в нормальное положение, приходится изрядно повозиться, если не знать простого способа нормализации ситуации.
Поворот изображения по первому способу совершается так:
По сочетанию Клавиши с эмблемой Windows+D переходим на рабочий стол. Кликаем правой кнопкой мыши по свободному месту на рабочем столе. Далее последовательно переходим на Параметры графики, Поворот, Поворот в нормальный вид и кликаем левой кнопкой по надписи Поворот в нормальный вид.
Если хотите над кем-нибудь подшутить, можете повернуть или перевернуть изображение, чтобы понаблюдать за охами и ахами окружающих.
Поворот изображения по второму способу совершается при использовании так называемых «горячих клавиш».
Поиск в справке Windows по трём запросам Сочетание клавиш поворота изображения, Клавиши поворота изображения и Сочетание клавиш поворота изображения на экране ничего не дал, что ещё раз подтвердило несовершенство справки Windows.
Ответ получил в первой позиции выдачи Яндекса по запросу Сочетание клавиш поворота изображения:
Обычно это сочетание клавиш Alt+Ctrl+стрелка Вверх (нормальное изображение), Вниз (поворот на 180 градусов), Влево (поворот на 90 градусов), Вправо (поворот на 270 градусов). Если данная комбинация не помогла, попробуйте зайти в настройки видеодрайвера и найти горячие клавиши, отвечающие за поворот изображения.
Проверка на моём ноутбуке показала работоспособность всех 4-рёх сочетаний клавиш.
Итак, возврат изображения в нормальное положение совершается при одновременном нажатии трёх клавиш: Alt+Ctrl+стрелка Вверх
Поворот изображения по третьему способу на моём ноутбуке можно сделать при использовании Панели управления и пиктограммы Графика и медиа Intel(R). Основные настройки имеют строку Поворот, позволяющую выбрать поворот изображения в нужное положение.
Само собой разумеется, что самым простым и самым лучшим является второй способ — особенно для того, чтобы подшутить над кем-нибудь: достаточно на секунду отвлечь внимание — и по Alt+Ctrl+стрелка Вниз изображение на экране можно перевёрнуть!
Приглашаю всех высказываться в Комментариях. Критику и обмен опытом одобряю и приветствую. В хороших комментариях сохраняю ссылку на сайт автора!
И не забывайте, пожалуйста, нажимать на кнопки социальных сетей, которые расположены под текстом каждой страницы сайта.
Продолжение тут…
Как перевернуть фотографию в ворде 10
Сообщения: 3
Благодарности: 0
Здравствуйте. Подскажите, возможно ли создать командный файл, при запуске которого в заданной папке будут переворачиваться по горизонтали все изображения?
Я дуб дубом в bat.exe, Может есть другой способ?
Сообщения: 6021
Благодарности: 3491
| Конфигурация компьютера |  |
| Процессор: Intel Core 2 Quad Q9300, 2500 MHz (7,5 x 333) | |
| Материнская плата: Asus P5Q PRO | |
| Память: Transcend 2048×2 4096 Мб (DDR2-1066 DDR2 SDRAM) | |
| HDD: Seagate ST3250410AS (250 Гб, 7200 RPM, SATA-II) + STM31000528AS (1 Тб, 7200 RPM, SATA-II) | |
| Видеокарта: Asus EAH3650 (RV635) | |
| Звук: Realtek ALC1200 (встроенный) | |
| Блок питания: ExeGate 350W | |
| CD/DVD: Optiarc DVD RW AD-7170S | |
| Монитор: Samsung SyncMaster 971P 19» | |
| ОС: Windows 7 Ultimate SP1 (x64) | |
| Индекс производительности Windows: 5,9 |
sesves, сам cmd «переворотами» картинок не занимается. Смотрите в сторону IrfanView , или подобного. Он поддерживает ком. строку и может выполнить подобную задачу (ключ /hflip ).
Постановку задачи следует конкретизировать:
— типы файлов картинок
— рекурсивность исходной папки
— как именовать «перевертыши»
— куда их складывать.
Как перевернуть фотографию в ворде 10
Рисунок 3.37. Меню для « Поворота изображения »
Допустим, некоторые снимки были сделаны вертикально, и теперь низ изображения находится сбоку. Используйте команду Изображение → Преобразовать → Повернуть на 90° по часовой стрелке (или против часовой стрелки). Изображение в примере было повёрнуто на 90° против часовой стрелки.
Рисунок 3.38. Пример для « Поворота изображения »
Изображение повёрнуто на 90° против часовой стрелки
Повернуть все изображения в word
Подскажите, пожалуйста, как решить следующую задачу.
В документе word много рисунков, необходимо повернуть каждый рисунок на разный градус, но не более чем на 90. При достижении, например, 85 градусов, необходим обратный поворот и опять же не более -90.
Заранее всем спасибо.
Лучшие ответы ( 1 )
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
Ответы с готовыми решениями:
Повернуть изображение одной буквы в слове (MS Word)
Я легко могу сделать это в TeX, также могу повернуть весь текст в ячейке excel на +- 90 градусов.
Вставка изображения в таблицу в WORD
Подскажите или киньте ссылку на материал где почитать. Есть таблица в Word, требуется подгрузить.
Как изменить размер изображения, вставленного в ячейку таблицы MS Word?
Формирую таблицу с картинками в MS Word из 1С по технологии COM. Столкнулся с тем, что картинка.
Повернуть надпись в Word 2007
Необходимо повернуть надпись на угол в 45 градусов. как это сделать? В пункте меню "формат" поворот.
11503 / 3790 / 680
Регистрация: 13.02.2009
Сообщений: 11,193
Мог бы записать макрос и посмотреть
Вот примерно так:
1 2 3 4 5 6
Sub Макрос6() For Each RS In Documents(1).Shapes RS.Select Selection.ShapeRange.IncrementRotation -10 Next End Sub
Добавлено через 1 минуту
Проверяй свойство Rotation и принимай меры
15141 / 6414 / 1731
Регистрация: 24.09.2011
Сообщений: 9,999
1 2 3 4 5 6 7 8 9
Sub Макрос2() Dim s As Shape, a a = -85 For Each s In ActiveDocument.Shapes s.Rotation = a a = a + 10 If a >= 90 Then a = -85 Next End Sub
Регистрация: 04.01.2013
Сообщений: 11
Спасибо, что ответили. Проблема осталась еще в том, что у меня 1338 картинок и у всех установлено положение «В тексте», чтобы они шли по порядку, а Rotation работает только если на каждый рисунок положение установлено противоположное «В тексте». Как с этим бороться, чтобы можно было применить макрос?
5472 / 1150 / 50
Регистрация: 15.09.2012
Сообщений: 3,515
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
Sub Procedure_1() Dim myInlineShape As Word.InlineShape Dim myShape As Word.Shape 'В Wordе рисунки делятся на две группы: '1) рисунки, которые находятся в тексте - т.е. являются частью абзаца; '2) рисунки, которые обтекаются текстом. 'Рисунки, которые находятся в тексте, в VBA - это InlineShape. 'Рисунки, которе обтекаются текстом, в VBA - это Shape. For Each myInlineShape In ActiveDocument.InlineShapes 'Так меняется "InlineShape" на "Shape". 'Даём имя "myShape" созданному "Shape". 'Через это имя можно управлять рисунком. Set myShape = myInlineShape.ConvertToShape Next myInlineShape End Sub
Регистрация: 04.01.2013
Сообщений: 11
Скрипт,
Уже так делал. Рисунки в итоге накладываются друг на друга. А надо, чтобы они оставались на своих местах и шли подряд, так же как были при InlineShapes. Rotation если устанавливаю InlineShapes не работает, выпадает ошибка. В ручную получается поворачивать печати и они остаются как «В Тексте». Надо тоже самое сделать макросом.
5472 / 1150 / 50
Регистрация: 15.09.2012
Сообщений: 3,515
freeslim, пока остановимся на том (пока никто не опровергнет), что с помощью VBA нельзя повернуть InlineShape.
Не всё, что можно сделать в программе Word, можно сделать в VBA.
Регистрация: 04.01.2013
Сообщений: 11
Сообщение от Скрипт 
freeslim, пока остановимся на том (пока никто не опровергнет), что с помощью VBA нельзя повернуть InlineShape.
Не всё, что можно сделать в программе Word, можно сделать в VBA.
Это я понимаю. Решил попробовать каждое изображение перенести на отдельную страницу, затем преобразовать в shape, после чего перевернуть. Хотелось бы задать последний вопрос:
при выполнении макроса, чтобы перевести все картинки в shape, если на экране видны все рисунки, то макрос выполняется, если видна только одна страница, то появляется ошибка run-time eroor ‘-214746259
Как можно это исправить?
5472 / 1150 / 50
Регистрация: 15.09.2012
Сообщений: 3,515
Сообщение от freeslim
Хотелось бы задать последний вопрос:
при выполнении макроса, чтобы перевести все картинки в shape, если на экране видны все рисунки, то макрос выполняется, если видна только одна страница, то появляется ошибка run-time eroor ‘-214746259
Как можно это исправить?
не знаю, в чём дело. Я протестировал код из сообщения #5 так: сделал на двух страницах «InlineShape» и запустил код. Все рисунки оказались на первой странице. Ошибки не возникло в ходе выполнения кода.
Код переводит все «InlineShape» в документе в «Shape».
Рисунки сохраняют свои позиции только при условии, что в начале каждой страницы есть принудительный разрыв страницы (в Word 2007 принудительный разрыв страницы вставляется: вкладка Разметка страницы — группа Параметры страницы — Разрывы — Разрывы страниц — Страница. Если часто делаете, то сочетание клавиш Ctrl + Enter. Ну или можно сделать сочетание клавиш самим на эту команду):
Кликните здесь для просмотра всего текста
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43
Sub Procedure_1() Dim myShape As Word.Shape Dim myLeft As Double, myTop As Double Dim i As Long 'В Wordе рисунки делятся на две группы: '1) рисунки, которые находятся в тексте - т.е. являются частью абзаца; '2) рисунки, которые обтекаются текстом. 'Рисунки, которые находятся в тексте, в VBA - это InlineShape. 'Рисунки, которе обтекаются текстом, в VBA - это Shape. 'Двигаемся от последнего рисунка к первому, т.к. 'рисунки будут перемещаться и терять своё положение. For i = ActiveDocument.InlineShapes.Count To 1 Step -1 '1. Запоминаем, где находится "InlineShape". '1.1. Положение можно узнать с помощью объекта "Selection", 'поэтоу рисунок сначала выделяем. ActiveDocument.InlineShapes(i).Select '1.2. Запоминаем положение рисунка. 'Значения получаем в пунктах (Points). myLeft = Selection.Information(wdHorizontalPositionRelativeToPage) myTop = Selection.Information(wdVerticalPositionRelativeToPage) '2. Превращаем "InlineShape" в "Shape". 'Так меняется "InlineShape" на "Shape". 'Даём имя "myShape" созданному "Shape". 'Через это имя можно управлять рисунком. Set myShape = ActiveDocument.InlineShapes(i).ConvertToShape '3. Устанавливаем рисунок в нужное положение. '3.1. Делаем так, чтобы положение было относительно страницы. 'Потому что мы запомнили положение относительно страницы. myShape.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage myShape.RelativeVerticalPosition = wdRelativeVerticalPositionPage '3.2. Помещаем рисунок в нужную позицию. myShape.Left = myLeft myShape.Top = myTop Next i End Sub
Для ускорения работы кода можно попробовать отключать на время работы кода обновление монитора: Application.ScreenUpdating = False.