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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
ロボットの住む世界で流行ってる罰ゲームとは?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
エクセルVBAが途中で止まります
Visual Basic(VBA)
-
EXCELで特定のセルに表示された項目をヘッダーやフッターに出力するには
Excel(エクセル)
-
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
-
4
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
5
ExcelVBA ユーザーフォーム
Excel(エクセル)
-
6
テキストボックスの背景をVBAで塗りつぶし無しにしたい
Access(アクセス)
-
7
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
8
ブック名、シート名を他のモジュールからも参照可能にする方法
Access(アクセス)
-
9
テキストボックスの外枠線を消すには
Windows Vista・XP
-
10
[VBA] UserForm を Excel の Window の前面に表示させない方法
その他(プログラミング・Web制作)
-
11
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
12
ボタンの枠線の様なものを消したい
Visual Basic(VBA)
-
13
VBA ユーザーフォームのChangeイベントを停止したい
Access(アクセス)
-
14
ExcelVBA EnableプロパティがFalseの時に文字の色を変えたくない
Visual Basic(VBA)
-
15
EXCEL2013 VBA ListBox 未選択
Excel(エクセル)
-
16
EXCEL 年月表示をするVBAを教えてください。
Excel(エクセル)
-
17
オプションボタンの背景を透明にしたい
その他(Microsoft Office)
-
18
エクセルVBAのIF文の否定の複数条件
Excel(エクセル)
-
19
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
20
アクセスのfilter、複数条件の記述方法を教えてください。
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
複数のデータ系列の線の太さを...
-
エクセルでツールバーに「縮小...
-
ファイル名を今日の日付、時刻...
-
VBA[Private Sub]のコードをシ...
-
Powerpointでランダムな数字の...
-
wordのマクロで縮小して貼り付...
-
ピボットグラフの書式の固定に...
-
cellsで特定の離れた範囲を選択...
-
エクセルのマクロでSelection.S...
-
【VC++6.0(MFC)】コメントを一...
-
Excelのラジオボタンにチェック...
-
エクセル2007 テキストボ...
-
VBAをVBに変換する方法
-
最初の1回のみにボタンクリッ...
-
VBAで棒グラフの色を変えたい
-
VBAで実行時エラー '1004'の解...
-
どのドキュメントは暗号化され...
-
Pictures.Insertメソッド⇒Shape...
-
別ブックからユーザーフォーム...
-
アクセス マクロでキー送信:%...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
複数のデータ系列の線の太さを...
-
エクセルでツールバーに「縮小...
-
Powerpointでランダムな数字の...
-
cellsで特定の離れた範囲を選択...
-
ファイル名を今日の日付、時刻...
-
ピボットグラフの書式の固定に...
-
VBA[Private Sub]のコードをシ...
-
VBAを使ってエクセルシート...
-
エクセル2007 テキストボ...
-
最初の1回のみにボタンクリッ...
-
Excelのラジオボタンにチェック...
-
Pictures.Insertメソッド⇒Shape...
-
別ブックからユーザーフォーム...
-
エクセルVBAで、画像の倍率を知...
-
wordのマクロで縮小して貼り付...
-
【ExcelVBA】クエリの更新とピ...
-
どのドキュメントは暗号化され...
-
エクセルシートをまとめて印刷...
-
エクセルのマクロでSelection.S...
-
htmlまたはJavascriptからファ...
おすすめ情報