Hướng dẫn xử lý lỗi khi chèn ảnh vào vùng gộp dòng báo lỗi automation error (1 người xem)

[hoangpheo290193]

Xin chào các bác, vì em cũng là gà mờ vba Excel, nên em mong các bác chỉ giáo và sửa lỗi giúp em ạ!
Em có một file đã có code chèn ảnh. Khi em chèn ảnh vào 1 ô nào đó thì ok, tuy nhiên có một vấn đề xảy ra, khi mà em gộp mấy ô vào thành 1 ô và chèn ảnh vào cái vùng ô đã gộp thì excel báo lỗi automation error, và excel của em bị văng ra ngoài. Các bác cho em biết file của em nó lỗi như nào, và cách khắc phục. Em xin cảm ơn các bác nhiều ạ, em mò mẫm cả ngày mà không biết khắc phục lỗi này kiểu gì ạ!
Sau đây là dòng code của em:
Option Explicit
Sub LinkAnh()
Dim link As Variant
link = Application.GetOpenFilename(FileFilter:="Pic File (*.jpg; *.png), *.jpg; *.png", Title:="Select Picture")
If link = False Then Exit Sub
Selection.Value = link
End Sub
Sub ChenAnh()
Dim rng As Range
On Error Resume Next
For Each rng In Selection
ActiveSheet.Shapes(rng.Address).Delete
With ActiveSheet.Pictures.Insert(rng.Value)
.Name = rng.Address
ActiveSheet.Shapes((rng.Address)).LockAspectRatio = False
.Left = rng.Left
.Top = rng.Top
.Width = rng.Width
.Height = rng.Height
End With
Next rng
End Sub
Sub SizeAnh()
Dim rng As Range
On Error Resume Next
For Each rng In Selection
If rng.Value <> "" Then
With ActiveSheet.Shapes((rng.Address))
.LockAspectRatio = False
.Left = rng.Left
.Top = rng.Top
.Width = rng.Width
.Height = rng.Height
End With
End If
Next rng
End Sub
Sub XoaAnh()
Dim rng As Range
On Error Resume Next
For Each rng In Selection
If rng.Value <> "" Then
ActiveSheet.Shapes((rng.Address)).Delete
End If
Next rng
End Sub

"ghi chú: Trong file của em đăng lên, em đã bôi vàng vùng dữ liệu em cần chèn ảnh rồi ạ, các bác thử chèn 1 ảnh vào chạy thử là biết lỗi luôn ạ"

 

[Hoàng Tuấn 868]

Xin chào các bác, vì em cũng là gà mờ vba Excel, nên em mong các bác chỉ giáo và sửa lỗi giúp em ạ!
Em có một file đã có code chèn ảnh. Khi em chèn ảnh vào 1 ô nào đó thì ok, tuy nhiên có một vấn đề xảy ra, khi mà em gộp mấy ô vào thành 1 ô và chèn ảnh vào cái vùng ô đã gộp thì excel báo lỗi automation error, và excel của em bị văng ra ngoài. Các bác cho em biết file của em nó lỗi như nào, và cách khắc phục. Em xin cảm ơn các bác nhiều ạ, em mò mẫm cả ngày mà không biết khắc phục lỗi này kiểu gì ạ!
Sau đây là dòng code của em:
Option Explicit
Sub LinkAnh()
Dim link As Variant
link = Application.GetOpenFilename(FileFilter:="Pic File (*.jpg; *.png), *.jpg; *.png", Title:="Select Picture")
If link = False Then Exit Sub
Selection.Value = link
End Sub
Sub ChenAnh()
Dim rng As Range
On Error Resume Next
For Each rng In Selection
ActiveSheet.Shapes(rng.Address).Delete
With ActiveSheet.Pictures.Insert(rng.Value)
.Name = rng.Address
ActiveSheet.Shapes((rng.Address)).LockAspectRatio = False
.Left = rng.Left
.Top = rng.Top
.Width = rng.Width
.Height = rng.Height
End With
Next rng
End Sub
Sub SizeAnh()
Dim rng As Range
On Error Resume Next
For Each rng In Selection
If rng.Value <> "" Then
With ActiveSheet.Shapes((rng.Address))
.LockAspectRatio = False
.Left = rng.Left
.Top = rng.Top
.Width = rng.Width
.Height = rng.Height
End With
End If
Next rng
End Sub
Sub XoaAnh()
Dim rng As Range
On Error Resume Next
For Each rng In Selection
If rng.Value <> "" Then
ActiveSheet.Shapes((rng.Address)).Delete
End If
Next rng
End Sub

"ghi chú: Trong file của em đăng lên, em đã bôi vàng vùng dữ liệu em cần chèn ảnh rồi ạ, các bác thử chèn 1 ảnh vào chạy thử là biết lỗi luôn ạ"

Thử tham khảo tại đây.