Координаты верхнего правого угла - видимой части листа

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Координаты верхнего правого угла - видимой части листа (Макросы/Sub)

DJBeast

Дата: Четверг, 22.02.2018, 23:05 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 29

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Всем привет.
Подскажите - как решить задачу.

Есть картинка "Рисунок 1" размещенная на листе.
Как эту картинку - макросом - разместить так чтобы верхний правый угол этой картинки - совпадал с верхним правым углом видимой области листа ?

Суть в том, чтобы - если пролистать лист и запустить макрос - то макрос определит координату верхнего правого угла видимой части экрана и переместит картинку туда.
Приложил скриншот рабочей области листа.

К сообщению приложен файл: 0290008.xlsm (16.5 Kb) · 9541732.jpg (45.8 Kb)

Ответить

Karataev

Дата: Пятница, 23.02.2018, 09:26 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 1334

Репутация: 533 ±

Замечаний: 0% ±

Excel

Предполагаю, что этот макрос не даст желаемый результат во всех случаях, но может подойдет для Вашей задачи.
[vba]

Код

Sub Переместить_рисунок()
    Dim sh As Worksheet, rng As Range, objShape As shape
    Set sh = ActiveSheet
    Set rng = ActiveWindow.VisibleRange
    Set objShape = sh.Shapes(1)
    objShape.Left = ActiveWindow.UsableWidth + rng.Columns(1).Left - objShape.Width - 19
    objShape.Top = rng.Top
End Sub

[/vba]

Сообщение отредактировал Karataev - Пятница, 23.02.2018, 09:27

Ответить

DJBeast

Дата: Пятница, 23.02.2018, 15:22 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 29

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Karataev, ясно. Спасибо.

Ответить

Страница 1 из 1
1