VBA code to fill shape transparent with any RGB colour cases

[harjotawang]

this my code, i dont know how to make "case 0" become transparency

Sub Fillcolor()
For i = 1 To 10
API = Sheet1.Cells(i + 1, 7)
Select Case API

Case 0
a = 255
b = 255
b = 255
Case 1
a = 150
b = 100
Case 2
a = 255
b = 0
Case Else
a = 255
b = 0
End Select
Sheet1.Shapes.Range(Array("Freeform: Shape " & i)).Fill.ForeColor.RGB = RGB(a, b, 0)
Next i
End Sub

 

[Fluff]

Hi & welcome to MrExcel.
How about

Sub Fillcolor()
For i = 1 To 10
   API = Sheet1.Cells(i + 1, 7)
   With Sheet1.Shapes("Freeform: Shape " & i).Fill
      
      Select Case API
         Case 0
            .Visible = False
         Case 1
            .ForeColor.RGB = RGB(150, 100, 0)
         Case Else
            .ForeColor.RGB = RGB(255, 0, 0)
         End Select
   End With
Next i
End Sub

 

[harjotawang]

Hi & welcome to MrExcel.
How about

Sub Fillcolor()
For i = 1 To 10
   API = Sheet1.Cells(i + 1, 7)
   With Sheet1.Shapes("Freeform: Shape " & i).Fill
     
      Select Case API
         Case 0
            .Visible = False
         Case 1
            .ForeColor.RGB = RGB(150, 100, 0)
         Case Else
            .ForeColor.RGB = RGB(255, 0, 0)
         End Select
   End With
Next i
End Sub

so really big thanks to you, this code work, if you want to help me again please let me ask a question, how to make case "0", change/fill colour if its update value become 1 or 2 ?? i try to update the value, its still transparency.

Sub Fillcolor()
For i = 1 To 10
API = Sheet1.Cells(i + 1, 7)
With Sheet1.Shapes("Freeform: Shape " & i).Fill

Select Case API
Case 0
.Visible = False
Case 1
.ForeColor.RGB = RGB(150, 100, 0)
Case 2
.ForeColor.RGB = RGB(200, 50, 0)
Case Else
.ForeColor.RGB = RGB(255, 0, 0)
End Select
End With
Next i
End Sub

 

[Fluff]

If you change the value in the cell & run the code again, the fill colour should change.

 

[harjotawang]

If you change the value in the cell & run the code again, the fill colour should change.

this screencapture from my problem, if the value "0" and change become "1"/"2", the shape doesnt change

 

[Fluff]

Your shapes are grouped which is causing the problem, try ungrouping them.

 

[harjotawang]

Your shapes are grouped which is causing the problem, try ungrouping them.

im sorry .i tried to ungrouping to solve the problem, but the shape doesnt change, still transparency

 

[Fluff]

As long as none of the those shapes are grouped the code should work.

 

[harjotawang]

As long as none of the those shapes are grouped the code should work.

please review my code, if any error. i stiil try but the shape can back colouring again after transpararency

Sub Fillcolor()
For i = 1 To 5
API = Sheet1.Cells(i + 1, 4)
With Sheet1.Shapes("gambar " & i).Fill

Select Case API
Case 0
.Visible = False
Case 1
.ForeColor.RGB = RGB(150, 100, 0)
Case 2
.ForeColor.RGB = RGB(200, 50, 0)
Case Else
.ForeColor.RGB = RGB(255, 0, 0)
End Select
End With
Next i

End Sub

 

[Fluff]

That code works for me. Do you get any error messages?