Excel VBA (часть 3) - [3415] :: Прикладное программирование

Еще можно поместить макрос в модуль Эта книга Персональной книги макросов и проверять имя книги по маске:

Код:

Private WithEvents App As Application
Private Sub Workbook_Open()
Set App = Application
End Sub
Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
If Wb.Name Like "*qrq*" Then
Set rRng = Cells(3, 2)
Set pPic = rRng.Parent.Pictures.Insert("D:\Картинка.jpg")

With pPic
.Top = rRng.Top + 2
.Left = rRng.Left + 2
.Height = rRng.Height + 20
.Width = rRng.Width - 2
End With
End If
End Sub

Код не мой...Ссылка: http://www.excel-vba.ru/chto-umeet-excel/kak-otsledit-sobytienaprimer-vydelenie-yacheek-v-lyuboj-knige/

Модерирует : ShIvADeSt
Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению