Рисунок выровнять по центру

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

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

Рисунок выровнять по центру (Формулы/Formulas)

tsmnestle

Дата: Вторник, 05.01.2016, 22:09 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 3

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

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

Excel 2007

Добрый день, глубокоуважаемые форумчане!
Я столкнулся, сам не ожидая этого, с проблемой на ровном месте. Подскажите пожалуйста как выровнять рисунок (excel 2007), чтоб он был в центре ячейки?
Пример: Я объединил несколько ячеек, что бы получился квадрат. Вставил рисунок и мне нужно чтобы он был четко по центру этого квадрата. Выделяю рисунок - > Нажимаю работа с рисунками - > Формат -> Выровнять и вот на этом этапе, функции выравнивания серые, то есть не активные.
Буду благодарен за Вашу подсказку как это сделать. На всякий случай файл в приложении. Спасибо.

К сообщению приложен файл: pic01.xls (23.5 Kb)

Сообщение отредактировал tsmnestle - Вторник, 05.01.2016, 22:10

Ответить

Udik

Дата: Вторник, 05.01.2016, 22:35 | Сообщение № 2

Группа: Друзья

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

Сообщений: 1588

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

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

Excel 2016 х 64

Возможно тут надо "крутить"

К сообщению приложен файл: 0432652.jpg (29.8 Kb)

вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com

Ответить

SLAVICK

Дата: Вторник, 05.01.2016, 22:49 | Сообщение № 3

Группа: Модераторы

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

Сообщений: 2290

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

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

2019

Можно макросом:
[vba]

Код

Sub d()
    Dim sh As Shape, ph#, pw, ch#, cw#, px#, py#
    Set sh = ActiveSheet.Shapes("Рисунок 1")
    ph = sh.Height: pw = sh.Width
    ch = sh.TopLeftCell.MergeArea.Height: cw = sh.TopLeftCell.MergeArea.Width
    px = sh.TopLeftCell.MergeArea.Left + (cw - pw) / 2
    py = sh.TopLeftCell.MergeArea.Top + (ch - ph) / 2
    sh.Left = px
    sh.Top = py
End Sub

[/vba]
Специально делал не очень сжато, чтоб легче понять было.
Принцип такой:
определяем высоту и ширину: картинки и ячейки.
Потом делим разницу на 2 - это и будет середина

К сообщению приложен файл: 2211353.xls (38.0 Kb)

Ответить

_Boroda_

Дата: Вторник, 05.01.2016, 23:02 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16702

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Еще ручной способ для нечастого использования
вставляем автофигуру прямоугольник, держа нажатым Аль, перемещаем уго угды так, чтобы они совпадали с углами объединенной ячейки (Альт держим для точной привязки к сетке - тогда она (привязка) будет осуществляться автоматически. Затем выделяем нашу картинку и (держа нажатым Контрл) прямоугольник и

Цитата tsmnestle, 05.01.2016 в 22:09, в сообщении № 1

работа с рисунками - > Формат -> Выровнять

по центру.
Потом прямоугольник можно удалить или снять заливку и линии

К сообщению приложен файл: pic01_1.xls (32.5 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Рисунок выровнять по центру (Формулы/Formulas)

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