Создание Титула на рабочем листе с помощью процедур обработки событий в UserForm

Порядок работы:

- Открыть созданную ранее рабочую книгу.

- В проводнике Project Explorer выполнить правой кнопкой мыши ЭтаКнига>Insert> UserForm.

- В появившийся макет формы внедрить кнопку ComandButton1, ComandButton2, Image1, применив к ним свойства Caption, Font, BackColor в открытом окне Properties Windows(см. Панель инструментов или кн. F4).

- Двойным Click по кнопкам создать шаблоны для процедур обработки событий. В первую процедуру скопировать программный код ранее созданного диапазона в рабочем листе «Титул». В нее же включить для Image1 следующие значения свойств:

Код программы:

Private Sub CommandButton1_Click()

With Image1

.Visible = True

.PictureSizeMode = fmPictureSizeModeZoom

.PictureAlignment = fmPictureAlignmentTopLeft

.BorderStyle = fmBorderStyleSingle

.BackColor = RGB(100, 310, 0)

.Picture = LoadPicture("P:2-MD-11ПутиловаТЕвычислDSC_1129.jpg")

End With

Range("C2").Value = "Путилова Таисия Евгеньевна 2-мд-11 Проект создания коттеджного поселка "

With Range("C2:K21")

.MergeCells = True

.Font.Size = 40

.Name = "Tahoma"

.Interior.ColorIndex = 50

.Font.ColorIndex = 7

.HorizontalAlignment = xlCenter

.VerticalAlignment = xlCenter

.WrapText = True

End SubPrivate Sub CommandButton2_Click()

UserForm3.Hide

End Sub

Private Sub Image1_Click()

End With

End Sub