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

Giả sử ta có 1 file trong đó có 1 sheet tên là "Sheet1". Ta cũng có 1 thư mục chứa hình với đường dẫn: "D:\Picture\BeTu" Trong thư mục BeTu có 50 hình ảnh, với tên hình từ "A00001.jpg" đến "A00050.jpg", như thế, điểm chung là màu đỏ và điểm riêng là màu xanh, vì thế đường dẫn ta có những điểm...

Chiều nhà em đi vắng , chưa hồi âm được . Cám ơn thày !

Hàm CommPic phiên bản mới nhất với nhiều tùy chọn: Function CommPic(ByVal PicPath As String, Optional ByVal PicCel As Range, _ Optional ByVal ScaleWidth As Single = 1, _ Optional ByVal ScaleHeight As Single = 1) As String Dim mRng As Range, cmt As Comment, fso...

Xin hỏi các bạn, khi ta sử dụng hàm để chèn ảnh vào comment ,khí có ảnh thì vô tư rồi . Nhưng khi trường hợp có tên, nhưng không có ảnh thì nó chỉ cho khung comment trống . Vậy bổ xung code thế nào để nó tự xóa các comment không có ảnh ?

Sao em chèn rồi mà nó không hiện? nó báo lỗi NAME?-\\/.

Câu 1) Khi Protect sheet, check mục "Edit Objects" là được Câu 2) Liên quan đến "Chèn hình bằng hàm tự tạo" nếu như bạn vào topic đó xem hết thì sẽ thấy câu hỏi và trả lời liên quan...

Cảm ơn bạn rất nhiều. Code chạy rất tốt. Tâm trạng đang rất phấn khởi. Là lá la.@$@!^%

Chèn code dưới đây vào 1 Module: Function CommPic(ByVal Pic As String, Optional ByVal Cel As Range) As String Dim mRng As Range, comm As Comment On Error Resume Next Application.Volatile If Cel Is Nothing Then Set Cel = Application.ThisCell Cel(1, 1).Comment.Delete If Not...

Bạn dùng thử cái này Public Sub InsertPicture2Sheets(StrFolder As String, InsertAddress As String) Dim ObjFSO As Object, ObjFolder As Object, ObjFile As Object Dim CountPics As Integer, NumOfSheets As Integer Set ObjFSO = CreateObject("Scripting.FileSystemObject") Set ObjFolder...

Xem chỗ này trước đi rồi tính tiếp: http://www.giaiphapexcel.com/forum/showthread.php?51408-Ch%C3%A8n-h%C3%ACnh-v%C3%A0o-cell-b%E1%BA%B1ng-h%C3%A0m-t%E1%BB%B1-t%E1%BA%A1o Nếu "tự tính" vẫn không ra, cho file + hình lên đây Chắc là file của bạn hổng có sheet nào là Sheet1 cả (đoán thôi, ai mà...

Mình xin gửi lại file

The file is corrupt. Chắc lúc nén file bạn đã bị "đứt gánh giữa đường" --=0 Theo tôi chèn file âm thanh vào excel bằng Hyperlink thôi. Có thể chèn trực tiếp vào cell hoặc chèn vào hình (shapes) tự tạo.

Mọi người ơi, ai giúp mình với. Làm sao để chèn hình vào excel, sao cho: + Không di chuyển được hình + Vẫn có thể thao tác trên cell của hình bình thường. + Hình là một dạng background của môt mảng nhất đinh (vd A1:D4) ==> giống như là khóa hình vào cái file excel vây. Mình đã thử chèn...

Cảm ơn bạn rất nhiều. Mình làm được rồi, cũng khá dễ hiểu. Cảm ơn bạn và cảm ơn mọi người một lần nữa. }}}}}

Hướng dẫn bạn cách làm dễ hiểu với 1 cột phụ thêm vào! Ta làm như sau: - Đầu tiên chèn thêm 1 cột trước cột A. Khi ấy cột CHUYÊN NGÀNH sẽ thành B và cột MÔN HỌC sẽ thành cột C - Gõ vào cell A3 (cột mới) công thức: =C3&COUNTIF($C$3:$C3,C3) keo fill xuống - Tại bảng tổng hợp, sửa...

Tình hình là trong workbook của em có gần 100 Sheet, mỗi lần di duyển giữa các Sheet lại mất công di chuyển thanh Scrollbar, em có viết code trong file như vậy thì chạy ok mặc dù không hiểu lắm Private Sub Workbook_SheetActivate(ByVal Sh As Object) ActiveSheet.Cells(1, 1).Activate End...

nếu bạn định biểu diễn 1 biểu tượng cho 1 số liệu cụ thể nào đó thì từ Excel 2007 trở về sau có hỗ trợ việc chèn Icon Sets (ko biết có thỏa mãn được các yêu cầu của bạn ko --=0--=0--=0)

Bạn làm theo http://www.giaiphapexcel.com/forum/showthread.php?51408-Ch%C3%A8n-h%C3%ACnh-v%C3%A0o-cell-b%E1%BA%B1ng-h%C3%A0m-t%E1%BB%B1-t%E1%BA%A1o đảm bảo đúng yêu cầu của bạn.

Tôi làm bài này theo kiểu khác một chút. Đầu tiên bạn cần cho code này vào module: Function CommPic(ByVal Pic As String, Optional ByVal Cel As Range) As String Dim mRng As Range, comm As Comment On Error Resume Next Application.Volatile If Cel Is Nothing Then Set Cel =...

Chào các anh! Hiện tại công việc em đang gặp phải như sau: 1. Hàng ngày đi chụp ảnh các vấn đề không theo tiêu chuẩn 2. điền vào báo cáo. em thấy mỗi lần làm như thế mất rất nhiều thời gian khiínnsert picture vào vì ảnh chèn vào rất to và phải chỉnh về kích cỡ nhỏ. Em đã cải tiến bằng cách đổi...