Здравствуйте. Помогите пожалуйста с макросом
Здесь значение Filename$ прописано напрямую в макросе, как переписать чтобы он брал Filename$ из выделенной в данный момент ячейки, я понимаю что в результате картинка будет вставленна в эту же ячейку, меня это устраивает. Заранее спасибо.
Код |
---|
Sub ВставкаКартинкиВЯчееку() Filename$ = "C:\Ageratum Blue Hawaii.jpg" With ActiveSheet.Shapes.AddPicture(Filename$, msoFalse, msoCTrue, 0, 0, 0, 0) .Top = Selection.Top .Left = Selection.Left .Width = Selection.Width .Height = Selection.Height End With End Sub |
Здесь значение Filename$ прописано напрямую в макросе, как переписать чтобы он брал Filename$ из выделенной в данный момент ячейки, я понимаю что в результате картинка будет вставленна в эту же ячейку, меня это устраивает. Заранее спасибо.