ID非公開
ID非公開さん
2022/5/20 7:16
1回答
ユーザーフォームのテキストボックスで指定したカラー定数をオートシェイブの背景色に設定したいのですが、たとえばvbaRedが" vbaRed"のように"で囲まれて設定できません。
ユーザーフォームのテキストボックスで指定したカラー定数をオートシェイブの背景色に設定したいのですが、たとえばvbaRedが" vbaRed"のように"で囲まれて設定できません。 何か工夫が必要でしょうか？ .fill.forecolor.rgb = me.color me.colorはユーザーフォーム内のテキストボックスを指しています。 .fill.forecolor.rgb = vbared だと、設定できるので悩んでいます。
補足
vbaredはvb redでした
Visual Basic・30閲覧
ベストアンサー
Dim 色 As String, 値 As Long 色 =TextBox1.Text Select Case 色 Case "vbBlack": 値 = vbBlack Case "vbRed": 値 = vbRed Case "vbGreen": 値 = vbGreen Case "vbYellow": 値 = vbYellow Case "vbBlue": 値 = vbBlue Case "vbMagenta": 値 = vbMagenta Case "vbCyan": 値 = vbCyan Case "vbWhite": 値 = vbWhite End Select ActiveSheet.Shapes("図形1").Fill.ForeColor.RGB = 値
ID非公開
ID非公開さん
質問者2022/5/21 10:43
