1. よねさんのExcelとWordの使い方 » 
2. エクセル2010基本講座：目次 » 
3. テキストボックス » 
4. テキストボックスの形状を変えたい

エクセル2010基本講座：テキストボックスの形状を変えたい

テキストボックスの形状を変更する　　　Topへ

• テキストボックスは標準では四角形の形状ですが、この形状を変更することができます。
  1. [挿入]タブの[テキストボックス]→[横書きテキストボックス]を実行してテキストボックスを挿入します。
     
  2. テキスト(文字)を入力しました、
     
  3. 描画ツールの[書式]タブを選択します。
     [図形の編集]→[図形の変更]→[フローチャート：せん孔テープ]を選択しました。
     
  4. 見た目は何の変化もありません・・・？
     描画ツールの[書式]タブを選択します。
     「図形スタイル」から「枠線のみ-オリーブ、アクセント3」を選択しました。
     
  5. テキストボックスの形状が変更できました。
     
• [図形の変更]を実行しても、見た目に変化がなかったのはなぜ？
  • 挿入したテキストボックスの塗りつぶしが「塗りつぶしなし」に設定されていたからです。
    
  • 図形の枠線が「線なし」に設定されていたからです。
    

• 頂点の編集を使って自在に変形する

  1. テキストボックスの枠部分をクリックします。枠線が直線になっているのを確認します。
     
  2. 描画ツールの[書式]タブを選択します。
     [図形の編集]→[頂点の編集]を実行します。
     
  3. 頂点が表示されますので、各頂点をドラッグして移動することができます。
     頂点が表示されていないところでは、線上をクリックすることで頂点を追加することができます。
     
  4. 下図は頂点を編集した例です。
     

• テキストボックスを一挙に削除したい

  • 以下のようなコードで削除ができます。
  • ただし、頂点の編集を行ったものはフリーフォームとして認識されるようです。
    VBAを使って一挙に削除するときは注意が必要です。
    • 特定のオブジェクトを削除する(VBA)　のコードを利用する場合は以下のように修正する必要があります。
    • Sheet1のテキストボックスを削除するコード
      

      Sub obuject_delete() 　　Dim i As Long 　　　　With Worksheets("Sheet1") 　　　　　　For i = .Shapes.Count To 1 Step -1 　　　　　　　　If .Shapes(i).Type = msoTextBox Then .Shapes(i).Delete 　　　　　　Next i 　　　　End With End Sub

      
      ↓
      Sheet1のフリーフォームを削除するコード
      

      Sub obuject_delete() 　　Dim i As Long 　　　　With Worksheets("Sheet1") 　　　　　　For i = .Shapes.Count To 1 Step -1 　　　　　　　　If .Shapes(i).Type = msoFreeform Then .Shapes(i).Delete 　　　　　　Next i 　　　　End With End Sub