Tạo Shape trên UserForm

[VuVanHao]

Em nhờ mọi người giúp đỡ ạ,
Em có một bài toán như sau:
Bước 1: Nhập số lô vào TextBox1
Bước 2: TextBox2 chuyển chuỗi ở TextBox1 thành chuỗi khác (Mã hóa) - Đã tham khảo trên diễn đàn thành công
Bước 3: Hiện mã QR của chuỗi TextBox2 vào Image1- Chưa làm được
Function tạo mã Qr này e tham khảo trên diễn đàn, bình thường nó dùng trên sheet, và tạo ra mã QR ở dạng Shape
Bước 4: Xuất mã Qr ở Image1 về dạng *PNG với tên là TextBox1-Chưa làm được.
Xin mọi người giúp đỡ ạ,
Em xin cảm ơn.

 

[batman1]

1. Tôi thêm Sub RangeShapeToFile ở đầu MaHoaLot
2. Không xóa công thức của ô C3. Code dùng ô F1 để nhập TextBox2.Value xuống sheet1. Nếu dùng ô khác F1 thì sửa trong code của CommandButton1_Click

 

[VuVanHao]

1. Tôi thêm Sub RangeShapeToFile ở đầu MaHoaLot
2. Không xóa công thức của ô C3. Code dùng ô F1 để nhập TextBox2.Value xuống sheet1. Nếu dùng ô khác F1 thì sửa trong code của CommandButton1_Click

Dạ, rất chuẩn Anh à.
Cảm ơn Anh ạ!