File mất ảnh chèn bằng VBA khi chuyển sang máy khác.

Chào thầy! Cho em hỏi khi sử dụng đoạn code này chuyển sang máy khác thì bị mất link ảnh? vậy thì có thể khắc phục bằng cách nào ạ.

Cảm ơn thầy!

Sub InsertPicture()
Dim sPicture As String, pic As Picture

sPicture = Application.GetOpenFilename _
("Pictures (*.gif; *.jpg; *.bmp; *.tif; *.png), *.gif; *.jpg; *.bmp; *.tif; *.png", , "Select Picture to Import")

If sPicture = "False" Then Exit Sub

Set pic = ActiveSheet.Pictures.Insert(sPicture)

With pic
.ShapeRange.LockAspectRatio = msoTrue
.Height = ActiveCell.MergeArea.Height - 3
.Top = ActiveCell.MergeArea.Top + 2
.Left = ActiveCell.MergeArea.Left + 60
.Placement = xlMoveAndSize
End With

Set pic = Nothing

End Sub

1 câu trả lời

43 lượt xem

vỗ tay

Trần Phước Duy 16:04 - Apr 07, 2023

Ảnh khi đã được chèn vào trong sheet (trong workbook) thì workbook sẽ lưu trữ ảnh đó luôn mà bạn, không rõ sao lại mất ảnh nhỉ?

Về mặt ý nghĩa của code thì nó chỉ đơn giản là mở ra cửa sổ Insert Picture, sau đó chỉnh lại kích thước ảnh được insert. Nếu bạn đã insert ảnh vào workbook và lưu workbook lại rồi thì sẽ không bị mất ảnh.

vỗ tay

Gói Hội viên Gitiho: Trọn bộ khoá học theo Khung năng lực

Gói Hội viên G-Skills: 03 kỹ năng bổ trợ thiết yếu

File mất ảnh chèn bằng VBA khi chuyển sang máy khác.

Câu hỏi liên quan