Microsoft Office Forums - View Single Post - [Solved] Link UserForm checkbox to corresponding shape on one worksheet and copy to 'template' worksheet

Guessed · 10-04-2020, 05:39 AM

The font colour can also be changed by adding this line

Code:

Sub SetLabels(sLabel As String, aSheet As Worksheet)
  Dim aCtl As Control, lngColour As Long, aShape As Shape
  Select Case sLabel
    Case "Warning":  lngColour = RGB(120, 0, 0)
    Case "Caution":  lngColour = RGB(0, 120, 0)
    Case Else:       lngColour = RGB(0, 0, 120)
  End Select
  
  For Each aShape In aSheet.Shapes
    If aShape.Title = "Label" Then
      aShape.TextFrame2.TextRange.Text = sLabel
      aShape.Line.ForeColor.RGB = lngColour
      aShape.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = lngColour
    End If
  Next aShape
  
End Sub