excel - excel-2007格式的vb代码->重新着色->设置透明色

Question

嗨，您能否显示 excel-2007 格式的 vb 代码->重新着色->在插入的图像上设置透明色...

顺便说一句，忘了提到excel-2007记录宏不记录这些东西，否则我不会在这里问它...... :)

Answer 1

我在 Excel 2003 中记录了一个宏，这就是我得到的：

Selection.ShapeRange.PictureFormat.TransparentBackground = msoTrue
Selection.ShapeRange.PictureFormat.TransparencyColor = RGB(5, 95, 209)
Selection.ShapeRange.Fill.Visible = msoFalse

我认为这也适用于 Excel 2007，因为一切都倾向于向前兼容。

Answer 2

好的，这是我在 Excel 2007 中编写的一个有效的宏：

Sub Macro3()
    Dim NewSheet As Worksheet, oldws As Worksheet
    Set oldws = ActiveWorkbook.ActiveSheet

    Dim i As Integer, obj As Shape
    Dim picFmt As PictureFormat

    Set NewSheet = Worksheets.Add
    NewSheet.Range("A1").Value = oldws.Name
    i = 3
    NewSheet.Range("A2").Value = "Name"
    NewSheet.Range("B2").Value = "Link Type"
    For Each obj In oldws.Shapes
        NewSheet.Cells(i, 1).Value = obj.Name
        NewSheet.Cells(i, 2) = obj.Type
        Set picFmt = obj.PictureFormat
        With picFmt
            NewSheet.Cells(i, 3) = .TransparencyColor
            'set Black as the Transparent color'
            .TransparencyColor = RGB(0, 0, 0)
        End With
        i = i + 1
    Next
End Sub