Code VBA chèn ảnh

[ntduong8th1]

Function InsertPic(ByVal picname As String) As String
Dim pic As Shape, cell_ As Range
Dim mPath As String
mPath = "link ảnh"
Set cell_ = Application.ThisCell

On Error Resume Next
cell_.Worksheet.Shapes(cell_.Address).Delete
On Error GoTo 0

Set pic = cell_.Worksheet.Shapes.AddPicture(mPath & "\" & picname & ".jpg", _
msoFalse, msoTrue, cell_.Left, cell_.Top, cell_.Width, cell_.Height)
pic.LockAspectRatio = msoTrue
pic.Name = cell_.Address
Set cell_ = Nothing
End Function

 

[Maika8008]

Đưa mấy dòng code lên chơi chơi vậy hả thớt?

 

[luong96]

xin hỏi bác @ntduong8th1 , @Maika8008 câu lệnh này Application.ThisCell có ý nghĩa j thế ạ?

 

[luong96]

@ntduong8th1 giờ mình thêm cả vị trí đặt ảnh thì mình sửa code như nào thế bác?