はどのようにVBScriptの

私はVBScriptを使用してExcelでの基本的なテキストボックスを作成していますのテキストボックスにアウトラインを追加します。はどのようにVBScriptの

Dim TextBox 
Set TextBox = objWorksheet.Shapes.AddTextBox(1, 57, 31.8, 228.24, 18.72) 
TextBox.TextFrame.Characters.Text = "Test" 
TextBox.TextFrame.Characters.Font.Bold = True 
TextBox.TextFrame.Characters.Font.Size = 14 
TextBox.TextFrame.Characters.Font.Name = "Arial" 
TextBox.TextFrame.Characters.Font.Color = RGB(0, 0, 0)

が、私はこのテキストボックスに黒いアウトラインを追加します。これをどのように達成するのですか？私はテキストボックスなどのプロパティに関するドキュメントを見つけることができないようです。マクロレコーダーを使用して

出典

2016-08-11 Dillydill123

これは助けるべきである - 私は奇妙な

ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 330.75, 76.5, 139.5 _ 
    , 125.25).Select 
With Selection.ShapeRange.Line 
    .Visible = msoTrue 
    .ForeColor.RGB = RGB(0, 0, 0) 
    .Transparency = 0 
End With

出典

2016-08-11 14:01:18 JetSetJim

を必要と片付けのように少し、このコードを取得するには、マクロレコーダーを使用し、私は'TextBox.ShapeRange.Line.Transparency = 0'を実行しようとすると、' TextBox'が 'ShapeRange'というメソッドまたはプロパティを"サポートしません "というランタイムエラーが発生します – Dillydill123

MSOffice Professional Plus 2013でマインが作成されました。自分のマクロを記録して、あなたの違いを見たいと思っています。グラフィックスオブジェクトはずっと前です。録音を開始し、テキストボックスを挿入し、右クリックして線の色を変更します。その後、録音を停止してマクロ環境に行き、最新のモジュールでコードを開き、それがどのように行われているかを確認してください。 – JetSetJim

私はそれを理解することができました。なんらかの理由でVBScriptはShapeRangeメソッドを認識しないので、それを削除して 'TextBox.Line'でした。これで輪郭のプロパティを編集することができました。ありがとう – Dillydill123

、私はこれを得た：

With TextBox.ShapeRange.Line 
    .Visible = msoTrue 
    .ForeColor.ObjectThemeColor = msoThemeColorText1 
    .ForeColor.TintAndShade = 0 
    .ForeColor.Brightness = 0 
    .Transparency = 0 
End With

出典

2016-08-11 13:58:20 BruceWayne

答えて

関連する問題