テキストボックスの枠の色を変える
通常はテキストボックスの色は、グレー色です。
あまり目立たないので、好きな色が設定できる様にします。
基本は、RGBを設定します。Tweeterにも記載しましたが、型はLongになります。...これに気が付かなくて解決にLongだった。(^^;
Clr = "RGB(255, 0, 0)"
は、
Clr = RGB(255, 0, 0) になります。
VBAマクロは、
Dim Clr As Long '枠線色
n = Mid(Range("色"), 1, 1) '色リスト
' n色リスト選択
Clr = Choose(n, RGB(255, 0, 0), RGB(0, 0, 255), RGB(128, 128, 128), RGB(0, 0, 0), RGB(0, 128, 0))
Set 範囲 = Range(Selection(1).Address(False, False) + ":" + Selection(Selection.Count).Address(False, False))
With ActiveSheet.Shapes.AddTextbox (Orientation:=msoTextOrientationHorizontal, _
Left:=範囲.Left, Top:=範囲.Top, Width:=範囲.Width, Height:=範囲.Height).Select
End With
' 今回はここ↓↓↓色リスト
With Selection.ShapeRange.Line
.Visible = msoTrue
.ForeColor.RGB = Clr '色リストからRGB(255, 0, 0)などを取得してセットします
End With