Author |
Topic |
|
nnsav
21 Posts |
Posted - 06/07/2011 : 16:43:06
|
Добрый день. При использовании команды Операции\Отразить\ Сверху вниз либо слева направо
для фигуры внутри которой есть текс получаю нечитабельный текст. Можно ли это как-то обойти? Наприме в AutoCAD есть системная переменная, которая позволяет сохранить направление текста внутри команды "Зеркало". |
|
Tumanov
Russia
1198 Posts |
Posted - 06/07/2011 : 17:04:05
|
У меня такой эффект не наблюдается. При отражениях шейпа ориентация текста сохраняется. Вот при поворотах текст тоже поворачивается. Если не нравится именно этот момент и хочется, чтобы текст не поворачивался, то можно в ячейке Angle секции TextTransform написать формулу =-Angle. В таких шейпах текст будет всегда ориентирован одинаково. |
|
|
nnsav
21 Posts |
Posted - 06/08/2011 : 10:10:20
|
Не понял как можно показать рисунок в сообщении. Можно Вам сбросить пример файла на почту?
Речь идет именно о зеркале. |
|
|
Surrogate
Russia
122 Posts |
Posted - 06/08/2011 : 10:52:12
|
про какую версию Visio идет речь ?
у меня 2003, я там не видел намека на зеркальность.. есть горизонтальное/вертикальное отображение, плюс повороты вправо/влево
† |
|
|
Tumanov
Russia
1198 Posts |
Posted - 06/08/2011 : 15:48:33
|
Можно на ttt@post.rzn.ru А для размещения рисунков здесь их обычно выкладывают на какой-нибудь левый сервис для картинок и в тексте дают ссылку туда. |
|
|
nnsav
21 Posts |
Posted - 06/09/2011 : 09:39:32
|
Речь и идет именно о горизонтальном вертикальном отображении, в первом сообщении я так и написал: При использовании команды Операции\Отразить\ Сверху вниз либо слева направо
Только что это, если не зеркало?
Пример проблемы выложил на файлобменник http://files.mail.ru/FBXKTE |
|
|
Surrogate
Russia
122 Posts |
Posted - 06/09/2011 : 10:41:39
|
quote: Originally posted by nnsav Только что это, если не зеркало?
из операций с фигурами будут только вертикальные/горизонтальные отображения ?
IMHO: здесь вся беда, что за основу взяты шейпы в которых текстовое поле повернуто => см. секцию TextTransform в ShapeSheet TxtWidth = =Width*2 TxtHeight = =Height*0.5 если бы было нормальное текстовое поле, то совет сработает
quote: Originally posted by Tumanov Если не нравится именно этот момент и хочется, чтобы текст не поворачивался, то можно в ячейке Angle секции TextTransform написать формулу =-Angle. В таких шейпах текст будет всегда ориентирован одинаково.
† |
|
|
Surrogate
Russia
122 Posts |
Posted - 06/09/2011 : 11:25:37
|
Sub test()
Dim shp As Shape
Dim ac As Cell
Dim pg As Page
For Each pg In ActiveDocument.Pages
For Each shp In pg.Shapes
Set ac = shp.CellsU("Angle")
If ac < 0 Then shp.FlipVertical
Next shp
Next pg
MsgBox "TheEnd"
End Sub
Нажмете Alt+F11, вставьте этот макрос, запустите - и будет вам счастье.
† |
Edited by - Surrogate on 06/10/2011 07:54:38 |
|
|
|
Topic |
|