Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
05.04.2007, 17:36:15
|
|||
|---|---|---|---|
Excel Как посчитать в сантиметрах координаты нижнего правого угла текущего листа |
|||
|
#18+
Подскажите как это написать на VBA ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
05.04.2007, 17:41:19
|
|||
|---|---|---|---|
Excel Как посчитать в сантиметрах координаты нижнего правого угла текущего листа |
|||
|
#18+
Делаю так 21,0 ширина листа 29,7 высота x := 21,0 - RightMargin /CentimetersToPoints(1); y := 29,7 - BottomMargin / CentimetersToPoints(1); Потом перевожу все обратно в поинты и перемещаю туда картинку! только вот не попадаю на угол листа ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
05.04.2007, 18:19:36
|
|||
|---|---|---|---|
Excel Как посчитать в сантиметрах координаты нижнего правого угла текущего листа |
|||
|
#18+
Если вот так писать и принять что ширина = 19 см то все ОК!!! Почему не пойму Sub Ìàêðîñ1() Dim vX As Double Dim vY As Double vX = 19 - (ActiveSheet.PageSetup.RightMargin + ActiveSheet.PageSetup.LeftMargin) / Application.CentimetersToPoints(1) vY = 29.7 - (ActiveSheet.PageSetup.BottomMargin + ActiveSheet.PageSetup.TopMargin) / Application.CentimetersToPoints(1) Selection.ShapeRange.Left = Application.CentimetersToPoints(vX) Selection.ShapeRange.Top = Application.CentimetersToPoints(vY) End Sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=61&mobile=1&tid=2183183]: |
0ms |
get settings: |
8ms |
get forum list: |
15ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
60ms |
get topic data: |
10ms |
get forum data: |
2ms |
get page messages: |
42ms |
get tp. blocked users: |
1ms |
| others: | 240ms |
| total: | 384ms |
| 0 / 0 |
