嗨,您能否显示 excel-2007 格式的 vb 代码->重新着色->在插入的图像上设置透明色...
顺便说一句,忘了提到excel-2007记录宏不记录这些东西,否则我不会在这里问它...... :)
嗨,您能否显示 excel-2007 格式的 vb 代码->重新着色->在插入的图像上设置透明色...
顺便说一句,忘了提到excel-2007记录宏不记录这些东西,否则我不会在这里问它...... :)
我在 Excel 2003 中记录了一个宏,这就是我得到的:
Selection.ShapeRange.PictureFormat.TransparentBackground = msoTrue
Selection.ShapeRange.PictureFormat.TransparencyColor = RGB(5, 95, 209)
Selection.ShapeRange.Fill.Visible = msoFalse
我认为这也适用于 Excel 2007,因为一切都倾向于向前兼容。
好的,这是我在 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