Chuyển từ IPictureDisp sang Picture (Định dạng PNG)

[vba_gpe]

Chào cả nhà ạ.
Hiện mình đang dùng office 2019, mình thấy có các icon của excel đẹp. Muốn xuất icon này sang định dạng ảnh.
Mình tìm hiểu được biết là các icon này nằm ở mục CommandBars thông qua idMso và excel có cho kiểm soát ở dạng IPictureDisp.
Vậy có cách nào xuất từ định dạng IPictureDisp sang PNG hoặc có giải pháp nào khác tượng tự cho vấn đề ở trên không ạ.
Ví dụ xuất idMso FileSave thành dạng ảnh.

Sub Xuatanh()
    Dim cmbs As CommandBars
    Set cmbs = Application.CommandBars
    Dim IPic As IPictureDisp
    Set IPic = Application.CommandBars.GetImageMso("FileSave", 32, 32)
End Sub

Cảm ơn mọi người. Chúc mọi người bình an trong mùa dịch

 

[giaiphap]

Chào cả nhà ạ.
Hiện mình đang dùng office 2019, mình thấy có các icon của excel đẹp. Muốn xuất icon này sang định dạng ảnh.
Mình tìm hiểu được biết là các icon này nằm ở mục CommandBars thông qua idMso và excel có cho kiểm soát ở dạng IPictureDisp.
Vậy có cách nào xuất từ định dạng IPictureDisp sang PNG hoặc có giải pháp nào khác tượng tự cho vấn đề ở trên không ạ.
Ví dụ xuất idMso FileSave thành dạng ảnh.

Sub Xuatanh()
    Dim cmbs As CommandBars
    Set cmbs = Application.CommandBars
    Dim IPic As IPictureDisp
    Set IPic = Application.CommandBars.GetImageMso("FileSave", 32, 32)
End Sub

Cảm ơn mọi người. Chúc mọi người bình an trong mùa dịch

Thử cái này.

SavePicture IPic, "D:\Hinh.PNG"

 

[vba_gpe]

Thử cái này.

SavePicture IPic, "D:\Hinh.PNG"

Cảm ơn bạn. Code chạy ok rồi ạ.
Có một vấn đề chỗ này mình muốn hỏi thêm là hiện xuất như cách ở trên thì ảnh nó rất mờ.
Không biết có phương án nào khác để xuất ảnh với chuẩn giống như của microsoft không nhỉ?
Cảm ơn bạn và mọi người.

 

[giaiphap]

Cảm ơn bạn. Code chạy ok rồi ạ.
Có một vấn đề chỗ này mình muốn hỏi thêm là hiện xuất như cách ở trên thì ảnh nó rất mờ.
Không biết có phương án nào khác để xuất ảnh với chuẩn giống như của microsoft không nhỉ?
Cảm ơn bạn và mọi người.

Sửa số 32 thành 128

 

[vba_gpe]

Cảm ơn bạn.
Mình sửa rồi nhưng vẫn chỉ ra màu nhợt nhạt như hình.
Không biết cái này do máy hay sao nhỉ?

 

[giaiphap]

Cảm ơn bạn.
Mình sửa rồi nhưng vẫn chỉ ra màu nhợt nhạt như hình.
Không biết cái này do máy hay sao nhỉ?
View attachment 263414

Cái này tui chịu rồi, chỉ biết bấy nhiêu thôi.

 

[ongke0711]

Chào cả nhà ạ.
Hiện mình đang dùng office 2019, mình thấy có các icon của excel đẹp. Muốn xuất icon này sang định dạng ảnh.
Mình tìm hiểu được biết là các icon này nằm ở mục CommandBars thông qua idMso và excel có cho kiểm soát ở dạng IPictureDisp.
Vậy có cách nào xuất từ định dạng IPictureDisp sang PNG hoặc có giải pháp nào khác tượng tự cho vấn đề ở trên không ạ.
Ví dụ xuất idMso FileSave thành dạng ảnh.

Sub Xuatanh()
    Dim cmbs As CommandBars
    Set cmbs = Application.CommandBars
    Dim IPic As IPictureDisp
    Set IPic = Application.CommandBars.GetImageMso("FileSave", 32, 32)
End Sub

Dùng công cụ có sẳn cho nhanh, code chi mất thời gian bạn. Muốn lấy bất kỳ icon nào có trong máy tính thì lấy.

 

[giaiphap]

Dùng công cụ có sẳn cho nhanh, code chi mất thời gian bạn. Muốn lấy bất kỳ icon nào có trong máy tính thì lấy.

View attachment 263415

Tôi đoán chắc tác giả chỉ muốn thế này.

Liên kết: https://youtu.be/L6Gqs8NCnMk

 

[vba_gpe]

Tôi đoán chắc tác giả chỉ muốn thế này.

Liên kết: https://youtu.be/L6Gqs8NCnMk

Cảm ơn bạn. Đúng ý mình hiện nhu cầu đang là như trên luôn.
Trước mình dùng office 2010, chạy cái tool imageMSO.xll như trên là có khả năng kết xuất ra ảnh với chất lượng ảnh tốt.
Nay mình dùng 2019 thì không biết lỗi thế nào mà không dùng tool được nên thử truy xuất ảnh bằng code xem sao.

 

[giaiphap]

Cảm ơn bạn. Đúng ý mình hiện nhu cầu đang là như trên luôn.
Trước mình dùng office 2010, chạy cái tool imageMSO.xll như trên là có khả năng kết xuất ra ảnh với chất lượng ảnh tốt.
Nay mình dùng 2019 thì không biết lỗi thế nào mà không dùng tool được nên thử truy xuất ảnh bằng code xem sao.

Không biết cái Add-ins của bạn thế nào chứ cái Add-ins của tui thế này.

Liên kết: https://youtu.be/rtVjZ_daGFI

Thôi sẳn làm rồi up file png cho bạn luôn khỏi làm nửa ,mất công.

Image.rar

drive.google.com

 

[vba_gpe]

Không biết cái Add-ins của bạn thế nào chứ cái Add-ins của tui thế này.

Liên kết: https://youtu.be/rtVjZ_daGFI

Thôi sẳn làm rồi up file png cho bạn luôn khỏi làm nửa ,mất công.

Image.rar

drive.google.com

Cảm ơn bạn rất nhiều

 

[vba_gpe]

Không biết cái Add-ins của bạn thế nào chứ cái Add-ins của tui thế này.

Liên kết: https://youtu.be/rtVjZ_daGFI

Thôi sẳn làm rồi up file png cho bạn luôn khỏi làm nửa ,mất công.

Image.rar

drive.google.com

Có chỗ này muốn hỏi thêm bạn. Nếu bạn không ngại chia sẽ, bạn có thể chia sẽ cái addin xll như trong clip được không?
Rất cảm ơn bạn đã hồi đáp.