N Khánh
Thành viên mới
- Tham gia
- 22/11/18
- Bài viết
- 30
- Được thích
- 0
Mình có code chèn ảnh vào như thế này. Ảnh mình để ở B2, đường dẫn thì để ở F2, cái đường dẫn và tên ảnh này luôn cố định.
Nhưng mà hiện tại có 1 lỗi là sau khi chèn ảnh xong. Khi thay đổi ảnh thì file excel cũ khi mở lại cũng nhận theo ảnh mới, mà không lưu được ảnh cũ theo file excel đó. Giờ có cách nào mà khi chèn ảnh xong đóng lưu file excel thì cái ảnh đó sẽ đi theo file excel đó không ạ. Nếu sửa đc vào code thì tốt quá, nếu không thì sửa bằng tay cũng đc. Mình đã thử khi làm xong xóa hàm, xóa đường dẫn mà nó vẫn cứ nhận được theo ảnh mới. Mong các bác giúp mình với !!!
Nhưng mà hiện tại có 1 lỗi là sau khi chèn ảnh xong. Khi thay đổi ảnh thì file excel cũ khi mở lại cũng nhận theo ảnh mới, mà không lưu được ảnh cũ theo file excel đó. Giờ có cách nào mà khi chèn ảnh xong đóng lưu file excel thì cái ảnh đó sẽ đi theo file excel đó không ạ. Nếu sửa đc vào code thì tốt quá, nếu không thì sửa bằng tay cũng đc. Mình đã thử khi làm xong xóa hàm, xóa đường dẫn mà nó vẫn cứ nhận được theo ảnh mới. Mong các bác giúp mình với !!!
Mã:
Function supersheeta(ByVal PictureFileName As String, Optional ByVal TargetCell As Range) As String
On Error Resume Next
If TargetCell Is Nothing Then Set TargetCell = Application.ThisCell
TargetCell.Worksheet.Shapes(TargetCell.Address).Delete
If CreateObject("Scripting.FileSystemObject").fileExists(PictureFileName) Then
TargetCell.Select
With TargetCell.Worksheet.Pictures.Insert(PictureFileName)
.Name = TargetCell.Address
.ShapeRange.LockAspectRatio = msoFalse
.Left = TargetCell.Left
.Top = TargetCell.Top
.Width = 319
.Height = 246
End With
End If
End Function