Новости:

К первому сообщению темы должен быть прикреплен файл примера в формате xls*.
Приложив пример, Вы избавите себя и других от вопросов типа "А какой критерий?", "А куда выводить результат?", "А сколько строк?" и все тех же просьб выложить файл. Рисовать за Вас Ваши же таблички с заданиями, а затем и решение к ним, никто желанием не горит. Да и, как показывает практика, в большинстве случаев без файла решения не найти.

Главное меню

Вставка графического объекта по центру ячейки

Автор sylvio, 03.07.2012, 19:35

« назад - далее »

sylvio

Прошу помощи по следующему вопросу.
По умолчанию любой графический объект при вставке из буфера оказывается в верхней левой части ячейки.
Можно ли с помощью макроса автоматически вставлять по вертикальному и горизонтальному центру ячейки?


exceleved

#1
Да, простая арифметика :)
Перед запуском макроса надо скопировать объект и выбрать ячейку.
Sub PasteAlighCentre()
Dim a As Range
Application.ScreenUpdating = False
Set a = ActiveCell
ActiveSheet.Paste
On Error GoTo ex_
With Selection
    .Left = a.Left + (a.Width - .Width) / 2
    .Top = a.Top + (a.Height - .Height) / 2
End With
ex_:
Application.ScreenUpdating = True
End Sub

sylvio

Спасибо большое!
Еще такой вопрос, как сделать эту функцию автоматической для всех вставляемых из буфера графических объектов?

exceleved

Вам нужно назначить этот макрос на кнопку "Вставить" и на сочетание клавиш Ctrl+V.
Поищите, как это сделать - обсуждалось много раз на всех форумах.