1

こんにちは、Excelのvbコードを表示できますか-2007形式->色の変更->挿入された画像に透明色を設定...

ちなみに、Excel-2007レコードマクロはこのようなものを記録しないことを言及するのを忘れました。そうでなければ、ここでは尋ねません... :)

4

2 に答える 2

0

私はExcel2003でマクロを記録しました、そしてこれは私が得たものです：

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

すべてが上位互換である傾向があるため、これはExcel2007でも機能すると思います。

于 2009-07-28T16:32:12.060 に答える
0

OK、これが私がExcel2007で書いたマクロです。

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
于 2009-07-28T16:58:05.287 に答える