Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Рисунок выровнять по центру - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Рисунок выровнять по центру (Формулы/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
 
Ответить
СообщениеДобрый день, глубокоуважаемые форумчане!
Я столкнулся, сам не ожидая этого, с проблемой на ровном месте. Подскажите пожалуйста как выровнять рисунок (excel 2007), чтоб он был в центре ячейки?
Пример: Я объединил несколько ячеек, что бы получился квадрат. Вставил рисунок и мне нужно чтобы он был четко по центру этого квадрата. Выделяю рисунок - > Нажимаю работа с рисунками - > Формат -> Выровнять и вот на этом этапе, функции выравнивания серые, то есть не активные.
Буду благодарен за Вашу подсказку как это сделать. На всякий случай файл в приложении. Спасибо.

Автор - tsmnestle
Дата добавления - 05.01.2016 в 22:09
Udik Дата: Вторник, 05.01.2016, 22:35 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Репутация: 192 ±
Замечаний: 0% ±

Excel 2016 х 64
Возможно тут надо "крутить"
К сообщению приложен файл: 0432652.jpg (29.8 Kb)


вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com
 
Ответить
СообщениеВозможно тут надо "крутить"

Автор - Udik
Дата добавления - 05.01.2016 в 22:35
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 - это и будет середина :D
К сообщению приложен файл: 2211353.xls (38.0 Kb)
 
Ответить
СообщениеМожно макросом:
[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 - это и будет середина :D

Автор - SLAVICK
Дата добавления - 05.01.2016 в 22:49
_Boroda_ Дата: Вторник, 05.01.2016, 23:02 | Сообщение № 4
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Еще ручной способ для нечастого использования
вставляем автофигуру прямоугольник, держа нажатым Аль, перемещаем уго угды так, чтобы они совпадали с углами объединенной ячейки (Альт держим для точной привязки к сетке - тогда она (привязка) будет осуществляться автоматически. Затем выделяем нашу картинку и (держа нажатым Контрл) прямоугольник и
работа с рисунками - > Формат -> Выровнять
по центру.
Потом прямоугольник можно удалить или снять заливку и линии
К сообщению приложен файл: pic01_1.xls (32.5 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЕще ручной способ для нечастого использования
вставляем автофигуру прямоугольник, держа нажатым Аль, перемещаем уго угды так, чтобы они совпадали с углами объединенной ячейки (Альт держим для точной привязки к сетке - тогда она (привязка) будет осуществляться автоматически. Затем выделяем нашу картинку и (держа нажатым Контрл) прямоугольник и
работа с рисунками - > Формат -> Выровнять
по центру.
Потом прямоугольник можно удалить или снять заливку и линии

Автор - _Boroda_
Дата добавления - 05.01.2016 в 23:02
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Рисунок выровнять по центру (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!