如何给图片加颜色

WENYU453666

附件图片是一个船舶项目进度表格的部分，里面的每个小的图片可以根据进度的变化，颜色发生变化，老外没说怎么做。
请假专家，如何从CAD中拷贝图纸进来，然后如何加入颜色，关键那个颜色的外框和黑色图片的还是非常一致的，貌似不是施工画的，里面有VB（之前是葡萄牙语的），谢谢！
Sub CALCULA_Fab()

For i = 11 To 286
    'atribui ao actreg o valor do bloco na planilha de avan鏾
    Range("actreg").Value = Range("pintura!C" & i).Value
    ActiveSheet.Shapes(Range("ActReg").Value).Select
    On Error Resume Next
    'se o avan鏾 for igual a 0 entao ele atribui 100% de transparencia
    If Range("actregcode").Value = "clsx1" Then
        Selection.ShapeRange.Fill.Transparency = 1
    Else
        'se o avan鏾 for >0 ele atribui a cor e a transparencia de 20%
        Selection.ShapeRange.Fill.ForeColor.RGB = Range(Range("actregcode").Value).Interior.Color
        Selection.ShapeRange.Fill.Transparency = 0.2
    End If

Next i
Range("av12").Select

End Sub

蓝桥玄霜

没有附件不能测试代码。
建议上传Excel表格附件来说明问题。

大灰狼1976

看代码就是简单调整了填充色的透明度。

WENYU453666

谢谢，已经自己琢磨出来了。