导出透明背景色图片

最新推荐文章于 2024-07-11 18:00:19 发布

weixin_30346033

最新推荐文章于 2024-07-11 18:00:19 发布

阅读量812

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/lauer0246/archive/2009/01/07/1371274.html

本文介绍了一种使用VBA代码导出具有透明背景的PNG图片的方法。通过设置地图背景色与TransparentColor属性相匹配实现透明效果。代码示例展示了如何使用ExportPNG对象设置透明颜色并导出图片。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

导出透明背景色图片

透明原理：将TransparentColor属性的RGB设置为地图背景色一样的值，2个颜色叠加，得到透明效果

Code
Private Sub UIBtnCtl_ExportPNG_Click()
On Error GoTo PROC_ERROR
    Dim pMxDocument As IMxDocument
    Dim pMap As IMap

    Set pMxDocument = Application.Document
    Set pMap = pMxDocument.FocusMap

    Dim pAv As IActiveView
    Set pAv = pMap
    Dim pExport As IExport
    Set pExport = New ExportPNG
    Dim pPngExport As IExportPNG
    Set pPngExport = New ExportPNG
    pPngExport.TransparentColor.RGB = RGB(192, 230, 250)
    pPngExport.TransparentColor.Transparency = 0
    pPngExport.TransparentColor.NullColor = False
    Set pExport = pPngExport

    Dim pSavePath As String
    pSavePath = "c:/pic.png"
    Dim exportFrame As tagRECT
    exportFrame = pAv.exportFrame
    Dim hdc&, dpi&
    Dim pEnv As IEnvelope
    Set pEnv = New Envelope
    pEnv.PutCoords exportFrame.Left, exportFrame.Top, exportFrame.Right, exportFrame.bottom

    dpi = CLng(pExport.Resolution)
    pExport.PixelBounds = pEnv
    pExport.ExportFileName = pSavePath
    pExport.Resolution = dpi

    hdc = pExport.StartExporting
    pAv.Output hdc, dpi, exportFrame, Nothing, Nothing
    pExport.FinishExporting
    MsgBox "导出完毕！"

    Exit Sub
PROC_ERROR:
    MsgBox Err.Description
End Sub

转载于:https://www.cnblogs.com/lauer0246/archive/2009/01/07/1371274.html