VBA 提取 Office 2016 工具栏图标

Office 图标精美漂亮，作为微软的官方图标，与 Windows 具有一致的风格

获取 Office 图标的唯一方法 CommandBars.GetImageMso

Private Sub ShowImages()On Error Resume NextDim idx As Integer, imgIdx As IntegerDim btn As MSForms.CommandButtonDim pic As IPictureDispDim ImgSize As LongIf CheckBox1.Value = True Then ImgSize = 32 Else ImgSize = 16For idx = 1 To 500imgIdx = idx + 500 * tabStrip1.ValueSet btn = Me.Controls.Item("image" & idx)If imgIdx <= 7345 ThenSet pic = NothingSet pic = Application.CommandBars.GetImageMso(Replace(Range("A" & imgIdx).Value, Chr(34), ""), ImgSize, ImgSize)With btn.Visible = True.Caption = "".Picture = pic.ControlTipText = imgIdx & "-" & Replace(Range("A" & imgIdx).Value, Chr(34), "")End WithElsebtn.Visible = FalseEnd IfNext idx
End Sub

Public Sub HBITMAPToBitmapARGB(gdiHdc As Long, gdiHBITMAP As Long, gdipBitmap As Long)Dim bmi As BITMAPINFODim bBits() As ByteGetDIBitsInfo gdiHdc, gdiHBITMAP, bmiGetDIBitsData gdiHdc, gdiHBITMAP, bmi, bBitsDim bmWidth As Long, bmHeight As LongbmWidth = bmi.bmiHeader.biWidthbmHeight = Abs(bmi.bmiHeader.biHeight)Dim rc As RECTLrc.Left = 0rc.Top = 0rc.Right = bmWidthrc.Bottom = bmHeightDim data() As ByteReDim data(rc.Right * 4 - 1, rc.Bottom - 1)Dim BmpData As BitmapDataWith BmpData.Width = rc.Right.Height = rc.Bottom.PixelFormat = GpPixelFormat.PixelFormat32bppARGB.scan0 = VarPtr(data(0, 0)).stride = 4 * CLng(rc.Right)End WithDim lineSize As LonglineSize = iIconBPP / 8 * bmWidthDim x As Long, y As Long, z As LongDim lineStart As Long, colorStart As LongCreateBitmap gdipBitmap, bmWidth, bmHeight, PixelFormat32bppARGBGdipBitmapLockBits gdipBitmap, rc, ImageLockModeUserInputBuf Or ImageLockModeWrite Or ImageLockModeRead, GpPixelFormat.PixelFormat32bppARGB, BmpDataFor y = 0 To bmHeight - 1lineStart = (bmHeight - y - 1) * lineSizeCopyMemory ByVal VarPtr(data(0, y)), ByVal VarPtr(bBits(lineStart)), lineSizeNextGdipBitmapUnlockBits gdipBitmap, BmpData
End Sub

原文：https://blog.csdn.net/blackwoodcliff/article/details/89891405

VBA 提取 Office 2016 工具栏图标相关推荐

提取 Office 2016 工具栏图标
Office 图标精美漂亮,作为微软的官方图标,与 Windows 具有一致的风格,但我们若想把这些图标用在自己的程序中,却并不容易,使用常规的提取程序资源的方法,根本得不到这些图标. 微软虽然没有把 ...
office 2016 for mac 工具栏小三角下拉无法展开问题
office 2016 for mac 下拉框无法展开问题在mac 系统10.14.5下安装office2016后,office 2016 for mac ,word,excel,ppt 都出现工 ...
Mac Office 2016 版安装
首先可以在 Mac 上,自己去网上下载 Office 2016 版安装.在安装完成以后,请不要先登录自己的账户. 2如果在此之前已经在Office 中登录了微软账户的话,请先在 Mac 上删除Offi ...
在 Windows 操作系统中，PDFMaker 处理 Office 2016 和 Office 365 的文档时崩溃
上次更新日期: 2021年4月29日 | 同时适用于: Adobe Acrobat Adobe Acrobat PDFMaker(PDFMaker 工具栏/选项卡中的"转换为 Adobe P ...
Essential Studio for Windows Forms发布2017 v2，持office 2016和主题定制
2019独角兽企业重金招聘Python工程师标准>>> Essential Studio for Windows Forms是一个帮您创建高性能的Windows应用程序的Window ...
qtitanribbon注册_Qt组件QtitanRibbon教程：如何运用office 2016类
QtitanRibbon是一款遵循Microsoft Ribbon UI Paradigm for Qt技术的Ribbon UI组件,致力于为Windows.Linux和Mac OS X提供功能完整的 ...
Office 2016 到底有没有更新？
首先,我的 Office 2016 不是零售版,而是 VOL 的版本,所以你看不到 Update 选项零售版或者说 O365 的版本就会有 Update 选项默认版本号:16.0.4266.100 ...
深度：从 Office 365 新图标来看微软背后的设计新理念
开始表演请关注我的公众号"寒树Office"来获取一些新鲜而有趣的新闻与知识,最近又有两家俱乐部上线了(东莞与长沙),俱乐部的活动告一段落,接下来的日子里我将持续与大家分享 Of ...
全新的Microsoft Office 2016发布，以更少步骤更快地执行工作
微软在旧版Office基础上对软件做了升级,打造了全新的 Office 2016 办公软件,Office 2016新功能包括附带的Office移动应用程序,其中包括家庭版.个人版及专业版等多个Offi ...

VBA 提取 Office 2016 工具栏图标

VBA 提取 Office 2016 工具栏图标相关推荐

最新文章

热门文章