Kết quả tìm kiếm cho từ khóa: VBA UDF chèn hình ảnh vào cell

bài này rất hay cảm ơn thầy, nhưng cho e hỏi sao trong file ví dụ của thầy e ấn đảo qua đảo được, ok. nhưng e bỏ ảnh của e vào thì chạy ra một ô màu hồng ko thấy ảnh, em kiểm tra ảnh của thầy chỉ có 7kb , ảnh của em tối 200kb . vậy làm sao để có thể bỏ được những ảnh như thế ah, cảm ơn thầy

sao HPKHUONG ko đưa file lên luôn đi chứ cứ COde như vậy nhìn rối quá ko hiểu đc, mình cũng đang cần file như vậy mà đọc chỉ dẫn của các tiền bối mà hoa mắt quá, ui tai ko ra. mong Thành viên già cỗi nào có nhiều kinh nghiệm up lên cho bà con tham khảo ạ

1> Cách 1: Dùng VBA Chèn code dưới đây vào Module: Function SeparateNum(ByVal text As String, ByVal delimiter As String) As String SeparateNum = Join(Split(StrConv(text, 64), Chr(0)), delimiter) End Function Ra ngoài bảng tính, gõ công thức: =SeparateNum(A1," ") Với cell A1 chưá chuỗi đầu...

Dạ em cám ơn thầy nhiều lắm ạ. Em đã test cách của thầy và thành công, nhưng khi scale lại không theo tỉ lệ ạ. Ảnh nó bị dẹt ra chứ ko scale cùng lúc dài và rộng được ạ. Sửa chỗ nào để nó tự lấy tỉ lệ dài/rộng ban đầu rồi nếu scale 1 chiều dài thì chiều rộng sẽ scale theo tỉ lệ đã tính trước đó...

Sửa thành vầy thử xem: Public Sub FitPic() Dim pic As Picture If TypeOf Selection Is Picture Then Set pic = Selection Pic2Cel pic, pic.TopLeftCell, 0.8 Else MsgBox "Chon anh truoc khi click" End If End Sub Private Sub Pic2Cel(ByVal pic As Picture, ByVal cel As Range...

Các ví dụ sinh động về vẽ biểu đồ bằng công thức trên cell Chắc hẳn bạn đã từng biết cách vẽ biểu đồ bằng công thức REPT kết hợp với font chữ Webdings. Và bài viết này muốn cho bạn một số ví dụ như những cái nhìn khác về cách sử dụng hàm này để vẽ các biểu đồ sáng tạo hơn, nhằm hỗ trợ cho...

Xưa nay người ta thường chèn hình vào bảng tính bằng 1 thủ tục nào đó (Sub...). Vậy các bạn có nghĩ rằng có thể chèn hình bằng hàm tự tạo không? Tức là ta gõ hàm vào cell, lập tức hình được chèn vào ngay cell ấy! Ví dụ ta gõ thế này: =CommPic("D:\Pic\Hinh 1.jpg",C5) thì lập tức Hinh 1.jpg được...

em cảm ơn thầy. em thấy dòng .Placement = xlMoveAndSize hình như không có tác dụng thì phải. chạy rồi mà vào format comment chả tích vào More and size with cells. ------------------------ ghi chữ [Tặng] cho đã, ai dè tặng đồ lỗi chưa hoàn chỉnh. --=0-0-/.+-+-+-+

Cái này tùy quan điểm thôi, tôi không ép (nhưng nếu tôi tự viết thì tôi sẽ tính theo % của độ cao dòng). Nhưng theo quan điểm của tôi, thiết kế cái tiến độ thi công mà dòng cao dòng thấp thì tôi thấy nó xấu (kích thước phải đều từ trên xuống dưới, từ trái sang phải) Lưu ý: Quan điểm cá nhân thôi...

hihi, bạn có thể chỉ lại dể hiểu cho mình k, cái này mình làm mà k được cảm ơn bạn nhiều

Microsoft chỉ cung cấp mẫu lập trình để minh họa chứ không đảm bảo dưới bất kỳ hình thức nào dù có quy định rõ ràng hay ngụ ý. Điều này bao gồm nhưng không giới hạn trong các hình thức bảo hành đối với tính thương mại cũng như tính thích hợp cho một mục...

Bài tuy cũ nhưng giờ em mới áp dụng, thật là tuyệt vời. Cám ơn thầy rất nhiều.

Bluesofts mở lớp học “Tạo báo cáo động trong Microsoft Excel và Add-in A-Tools” tại Hà Nội và ONLINE, khai giảng: 9h sáng ngày 4/6/2017 Khóa học duy nhất chỉ có ở Công ty cổ phần BLUESOFTS, nâng cao về các kỹ thuật làm báo cáo động trong Microsoft Excel với phương pháp hiện đại, tư duy mới. Kỹ...

Gắn hình ảnh vào trục của biểu đồ Bạn đã từng đọc qua bài viết sử dụng hình ảnh thay thế các điểm hình (giá trị) trong biểu đồ. Tuy nhiên, có bao giờ bạn tự hỏi làm thế nào để đưa hình vào trục của biểu đồ luôn không? Nếu bạn chưa hình dung ra, bạn có thể xem hình dưới đây. Đầu tiên...

Cám ơn thầy rất nhiều, cả 2 code đều chạy rất tốt. Tuy có điều không hiểu sao sheet em đặt tên khác không phải tên là Sheet1 thì k thể nào chạy được code dù đã thay lại tên trong code: "Set rng = Bao Gia (2).Range("B3", Bao Gia (2).Range("B10000").End(xlUp))". Em đổi tên lại Sheet1 thì lại ok...

Tôi viết code như vầy: Private Sub InsertPic(ByVal PicPath As String, Optional ByVal PicCel As Range, _ Optional ByVal ScaleWidth As Single = 1, _ Optional ByVal ScaleHeight As Single = 1) Dim pic As Picture, fso As Object, bChk As Boolean Set fso =...

Hi, các bác cho em hỏi : Bài toán của em là : có 1danh sách các nhân viên (mã nhân viên và tên nhân viên) ở sheet "danh sach" và ảnh các nhân viên được lưu theo mã nhân viên (G001, G002..... .*JPG). Muốn chèn ảnh nhân viên ở sheet "in anh" thì chỉ cần gõ mã nhân viên vào là tự nhảy tên,ảnh thì...

Thầy cho em hỏi, hướng dẫn của thầy em áp dụng vào công việc rất ok nhưng có 1 vấn về trầm trọng, nếu khoảng 50 ảnh thì ok, nhưng khối lượng ảnh của em trên 1000 ảnh. khi em đư avof thư mục khoảng trên 150 ảnh thì file không thể chạy nhanh được, thường xuyên bị đóng đột ngột. em đã nén ảnh, giảm...

thầy cho em hỏi có cách nào để ảnh ở một thư mục khác không (cho nó gọn)

quá tuyệt vời. trân thành cảm ơn bác