Xin hỏi cách: Thay đổi hình ảnh chứa trong bảng tính! (1 người xem)

[xmanpro]

Chào cả nhà! Em đang vướng mắc về vấn đề về code thay hình ảnh trong bảng tính (Em có gửi kèm file cho cả nhà dễ hiểu ý em hỏi). Tìm mãi trên diễn đàn mà chưa tìm được bài nào. Đành nhờ cả nhà giúp đỡ vậy! Cám ơn cả nhà!

 

[ndu96081631]

Chào cả nhà! Em đang vướng mắc về vấn đề về code thay hình ảnh trong bảng tính (Em có gửi kèm file cho cả nhà dễ hiểu ý em hỏi). Tìm mãi trên diễn đàn mà chưa tìm được bài nào. Đành nhờ cả nhà giúp đỡ vậy! Cám ơn cả nhà!

Code đây:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim img As String
  If Target.Address = "$F$1" Then
    img = Application.GetOpenFilename("Image Files, *.bmp;*.jpg", , , , False)
    If img <> "False" Then Sheet1.Image1.Picture = LoadPicture(img)
  End If
End Sub

 

[xmanpro]

Code đây:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim img As String
  If Target.Address = "$F$1" Then
    img = Application.GetOpenFilename("Image Files, *.bmp;*.jpg", , , , False)
    If img <> "False" Then Sheet1.Image1.Picture = LoadPicture(img)
  End If
End Sub

Cám ơn anh ndu96081631 nhiều nhé! Em hiểu cách làm rùi!