Code Vba Thông Dụng Trong Excel - Bài 7

Chào các bạn, Hôm trước trong bài thứ 6 mình đã giới thiệu về code tìm kiếm nhanh dữ liệu. Các code này rất hữu ích. Vì hiện nay đa phần các bạn dùng thủ công để thực hiện các thao tác, việc này rất tốn thời gian và hiệu suất công việc kém. Hôm nay mình xin giới thiệu đến các bạn code chèn hình ảnh nhanh vào 1 ô trong excel.

Hiện nay, khi các bạn chèn hình ảnh vào một ô trong excel, các bạn thường dùng nút Insert để chèn. Tuy nhiên khi chèn như vậy, hình ảnh sẽ rất lớn và không vừa khít với kích thước của ô, làm các bạn phải chỉnh sửa rất nhiều. Vì vậy mình xin giới thiệu đến các bạn đoạn code sau, đoạn code này sẽ giúp các bạn chèn nhanh hình ảnh vào excel và vừa khít với kích thước của ô được chọn.

+ Đoạn code như sau:

Sub ChenHinh()

Dim PicList() As Variant

Dim PicFormat As String

Dim Rng As Range

Dim sShape As Shape

Dim Col As Variant

Dim Row As Variant

Dim i As Long

On Error Resume Next

PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)

Col = Application.ActiveCell.Column

If IsArray(PicList) Then

    Row = Application.ActiveCell.Row

    For i = LBound(PicList) To UBound(PicList)

        Set Rng = Cells(Row, Col)

        Set sShape = ActiveSheet.Shapes.AddPicture(PicList(i), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)

        Row = Row + 1

        

    ActiveSheet.DrawingObjects.Placement = xlMoveAndSize

    Application.CommandBars("Format Object").Visible = False

    Next i

End If

End Sub

+ Đối với code này các bạn không cần chỉnh sửa gì cả. Rất đơn giản nhưng hiệu quả.

+ Các bạn tiến hành đưa Code Vba vào file Excel theo hình ảnh mình hướng dẫn sau nghe.
1. Các bạn mở một file excel bất kỳ muốn chèn code vào. VD: file mình có tên là "Book1-TT1".
    Tiếp theo, các bạn bấm phím "ALT + F11" trên bàn phím để mở trình VbaProject.
2. Các bạn kích chuột phải vào dòng VBAProject (Book1-TT1.xlsx). Chọn như hình thứ 2.
3. Các bạn kích đúp chuột vào "Module" đã tạo và copy code Vba dán vào khung bên phải.
4. Các bạn bấm vào nút "Save" trên trình VbaProject để lưu code lại, như hình thứ 4.

+ Các bạn tiến hành tạo nút kích chọn vào file Excel theo hình ảnh mình hướng dẫn sau nghe.

==>Sau đó các bạn kích Ok vậy là xong. Các bạn có thể đặt tên lại nút kích theo nhu cầu của mình.

==>Khi các bạn cần chèn hình, các bạn chỉ cần để con chuột tại 1 ô cụ thể, kích nút và chọn hình ảnh cần chèn vào ô hiện hành, khi đó hình ảnh sẽ tự động chèn vào ô đó vừa kích thước của ô.

=> Vậy là các bạn đã tạo được một code chèn hình ảnh.
Chúc các bạn thành công. Nếu chưa rõ, các bạn có thể Comment vào bài viết nhé.
Cảm ơn và chào các bạn!