No.3ベストアンサー
- 回答日時:
まずは基本を覚えてみましょう。
下記を参考に
******************************************************************
Sub テキストボックス作成()
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 10, 10, 70, 24).Select
With Selection
.Text = "VBA"
.Font.Size = 14
.Font.ColorIndex = 3
.HorizontalAlignment = -4108 ' _ テキスト横: 中央揃え
.ShapeRange.Line.ForeColor.SchemeColor = 4 ' _ 線を青に
.ShapeRange.Line.Weight = 1.5 ' _ 線の太さを 1.5
.ShapeRange.Line.Visible = 1 ' _ ★ 線 無なら、【 0 】か False
.ShapeRange.Fill.ForeColor.SchemeColor = 5 ' _ 塗りつぶし黄色に
.ShapeRange.Fill.Transparency = 0.5 ' _ 透過性50%
.ShapeRange.Fill.Visible = 1 ' _ ★ 塗りつぶし 無 なら【 0 】かFalse
End With
End Sub
******************************************************************
No.2
- 回答日時:
Sub テキストボックス作成()
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 10, 10, 70, 24).Select
Selection.Characters.Text = "VBA"
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 65
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoFalse
End Sub
上記の
Selection.ShapeRange.Fill.Solid
以下のコードは、線なし、の操作でマクロの記録で出来たコードです。
2003以前でやっているので2007では出来ないのかな。一応上記のコードでやってみて。
それに無駄な行もそのままにしてあるが。
No.1
- 回答日時:
テキストボックスのプロパティに
境界線幅
.BorderWidth
境界線スタイル
.BorderStyle
境界線色
.BorderColor
を使います。
境界線幅「BorderWidth」には、0~6の数値を設定します。
0 :表示可能な最も細い境界線(既定値)
1~6:1ポイント~6ポイント
境界線スタイル「BackStyle」には、次の値を設定します。
透明 : 0
実線 : 1
破線 : 2
細かい破線 : 3
点線 : 4
間隔の粗い点線 : 5
一点鎖線 : 6
二点鎖線 : 7
二重実線 : 8
境界線幅が設定されていないときは「0(規定値)」が表示されます。
この回答への補足
オブジェクトはこのプロパティをサポートしていませんと出ます。
bが大文字に自動変換されないし。
所で質問しているのはコントロールテキストボックスではありません。
テキストボックスも2種類あり紛らわしいです。
Sub テキストボックス作成()
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 10, 10, 70, 24).Select
Selection.Characters.Text = "VBA"
Selection.borderwidth = 0
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) パワーポイントやワード、エクセルでのスライドショーやテキストの微調整について 1 2023/01/12 05:50
- Excel(エクセル) 【マクロ】プリントスクリーンした画像をエクセルに貼付して印刷したい 6 2022/11/30 20:11
- Excel(エクセル) 記録マクロのみでできますか? 7 2022/08/07 20:38
- Excel(エクセル) 【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件 1 2023/02/15 01:52
- Visual Basic(VBA) ユーザーフォームで銀行に対応した支店コードの入力ができません Sheet1のA列に銀行名、B列に銀行 5 2022/07/28 17:50
- Excel(エクセル) エクセル2016で、セル全てが消えました。 3 2023/01/03 08:27
- Excel(エクセル) PDFファイルに日付を名前にして保存したい。 エクセル2019でワークシートに請求書のフォームを作り 2 2023/05/27 11:13
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルのオートフィルターのしぼりをクリアーしたい 2 2022/12/24 08:36
- その他(パソコン・スマホ・電化製品) ワードでテキストボックス内の文字を連動させない方法 2 2023/02/09 16:56
- Visual Basic(VBA) ExcelVBAでユーザーフォームでテキストボックスなどからセルに連続して入力するコーディングの際の 2 2022/06/29 22:51
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
テキストボックスの枠を消す
Excel(エクセル)
-
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
-
4
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
5
テキストボックスの外枠線を消すには
Windows Vista・XP
-
6
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
7
EXCELで特定のセルに表示された項目をヘッダーやフッターに出力するには
Excel(エクセル)
-
8
名前をつけて保存した後、元のファイルに戻るには
その他(コンピューター・テクノロジー)
-
9
ExcelVBAのユーザーフォームの中に線を引きたい
Visual Basic(VBA)
-
10
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
11
ユーザーフォームをホイールでスクロールする方法(Excel2000VBA)
Excel(エクセル)
-
12
テキストボックスが消えない
Excel(エクセル)
-
13
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
14
エクセルVBA
Excel(エクセル)
-
15
Excelで数値→文字列変換で指数表示になったものをいっぺんに直したい
Excel(エクセル)
-
16
エクセルVBAでテキストボックスの値の取得と変更について
Visual Basic(VBA)
-
17
ラベル内の文字(Caption)を縦表示にする方法
Visual Basic(VBA)
-
18
EXCEL VBAでWORKDAY関数を使用したい
Excel(エクセル)
-
19
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
20
Excel:コマンドボタンの移動
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
複数のデータ系列の線の太さを...
-
エクセルでツールバーに「縮小...
-
別ブックからユーザーフォーム...
-
ファイル名を今日の日付、時刻...
-
エクセルシートをまとめて印刷...
-
エクセル2007 テキストボ...
-
VBA[Private Sub]のコードをシ...
-
【ExcelVBA】クエリの更新とピ...
-
エクセル2010 Shapeをクリップ...
-
エクセルVBAで、画像の倍率を知...
-
ユーザフォームをどの画面から...
-
VBAでシートの保護をかける際に...
-
ピボットグラフの書式の固定に...
-
最初の1回のみにボタンクリッ...
-
エクセル vba クリック~離し...
-
Excel マクロでグラフの切取り...
-
エクセルのストップウォッチ
-
エクセルで日付のマクロをツー...
-
Powerpointでランダムな数字の...
-
VBAを使ってエクセルシート...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
複数のデータ系列の線の太さを...
-
エクセルでツールバーに「縮小...
-
ファイル名を今日の日付、時刻...
-
cellsで特定の離れた範囲を選択...
-
Powerpointでランダムな数字の...
-
VBAに詳しい方教えてください。
-
VBA[Private Sub]のコードをシ...
-
VBAを使ってエクセルシート...
-
【ExcelVBA】クエリの更新とピ...
-
別ブックからユーザーフォーム...
-
ピボットグラフの書式の固定に...
-
Pictures.Insertメソッド⇒Shape...
-
エクセルシートをまとめて印刷...
-
どのドキュメントは暗号化され...
-
最初の1回のみにボタンクリッ...
-
エクセルワークシート上に印刷...
-
エクセル2007 テキストボ...
-
エクセルのマクロでSelection.S...
-
エクセルVBAで、画像の倍率を知...
-
VBAで棒グラフの色を変えたい
おすすめ情報