voduyminh0504
Thành viên mới
- Tham gia
- 11/2/15
- Bài viết
- 47
- Được thích
- 10
Chào các bạn
Rất mong nhận được sự hỗ trợ của các bạn với vấn đề dưới đây của tôi liên quan đến việc chèn hình vào file excel
Tôi dùng đoạn code sau để chèn hình vào
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Or Target.Row = 1 Then Exit Sub
On Error GoTo Err_
Target(, 2).Worksheet.Shapes(Target.Address).Delete
Err_:
With ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\" & Target.Value & ".jpg")
.Name = Target.Address
.Top = Target.Top
.Left = Target(, 2).Left
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = Target.Height
.ShapeRange.Width = Target(, 2).Width
End With
Target.Offset(1, 0).Select
End Sub
Hai vấn đề của tôi cần được hỗ trợ như sau
1) Tôi muốn file hình được dẫn vào từ một folder khác (thay vì cùng folder với file chứa file excel)
2) Tôi muốn hình tự động hiện ra khi tên hình trong ô ở cột A thay đổi (hoặc cột chỉ định [A:A]), hiện nay hình chỉ hiện ra khi gõ enter), do vậy khi cần thay đổi hình thì rất bất tiện, cũng như hình không thể tự delete khi dữ liệu ở cột A (hoặc cột chỉ định) không còn hoặc thay đổi để có hình khác.
Tôi xin được cám ơn các bạn trước.
Trước đây tôi thường nhận được sự hỗ trợ rất nhiệt tình và nhanh chóng của các bạn, nhờ thế tôi giải quyết được rất nhiều vấn đề của tôi. Xin một lần nữa cám ơn các bạn.
Rất mong nhận được sự hỗ trợ của các bạn với vấn đề dưới đây của tôi liên quan đến việc chèn hình vào file excel
Tôi dùng đoạn code sau để chèn hình vào
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Or Target.Row = 1 Then Exit Sub
On Error GoTo Err_
Target(, 2).Worksheet.Shapes(Target.Address).Delete
Err_:
With ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\" & Target.Value & ".jpg")
.Name = Target.Address
.Top = Target.Top
.Left = Target(, 2).Left
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = Target.Height
.ShapeRange.Width = Target(, 2).Width
End With
Target.Offset(1, 0).Select
End Sub
Hai vấn đề của tôi cần được hỗ trợ như sau
1) Tôi muốn file hình được dẫn vào từ một folder khác (thay vì cùng folder với file chứa file excel)
2) Tôi muốn hình tự động hiện ra khi tên hình trong ô ở cột A thay đổi (hoặc cột chỉ định [A:A]), hiện nay hình chỉ hiện ra khi gõ enter), do vậy khi cần thay đổi hình thì rất bất tiện, cũng như hình không thể tự delete khi dữ liệu ở cột A (hoặc cột chỉ định) không còn hoặc thay đổi để có hình khác.
Tôi xin được cám ơn các bạn trước.
Trước đây tôi thường nhận được sự hỗ trợ rất nhiệt tình và nhanh chóng của các bạn, nhờ thế tôi giải quyết được rất nhiều vấn đề của tôi. Xin một lần nữa cám ơn các bạn.
