Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Копирование пути к картинке из ячейки
 
Здравствуйте. Помогите пожалуйста с макросом
Код
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$ из выделенной в данный момент ячейки, я понимаю что в результате картинка будет вставленна в эту же ячейку, меня это устраивает. Заранее спасибо.
 
Как-то так: Filename$ =ActiveCell.Value
 
Можно сразу назначать картинке нужный размер и позицию:
Код
Sub ВставкаКартинкиВЯчееку()
With ActiveCell
  ActiveSheet.Shapes.AddPicture .Value, msoFalse, msoCTrue, .Left, .Top, .Width, .Height
End With
End Sub
 
Большое спасибо.
Страницы: 1
Читают тему (гостей: 1)