シェイプの文字・位置・色・サイズを設定 : Excel(エクセル)

Excel Tipsメニューに戻る

スポンサードリンク



Excel VBA シートコード

Private Sub CommandButton1_Click()
    '文字をセット
    ActiveSheet.Shapes("Rectangle 5").TextFrame.Characters.Text = "エクセル忍法"
    '文字色
    'ActiveSheet.Shapes("Rectangle 5").TextFrame.Characters.Font.Color = vbRed
    '文字色
    ActiveSheet.Shapes("Rectangle 5").TextFrame.Characters.Font.ColorIndex = 5
    '太字
    ActiveSheet.Shapes("Rectangle 5").TextFrame.Characters.Font.Bold = True
    'サイズ
    ActiveSheet.Shapes("Rectangle 5").TextFrame.Characters.Font.Size = 16

    
    '垂直方向の位置
    ActiveSheet.Shapes("Rectangle 5").TextFrame.VerticalAlignment = xlVAlignBottom
    '水平方向の位置
    ActiveSheet.Shapes("Rectangle 5").TextFrame.HorizontalAlignment = xlVAlignCenter
End Sub

スポンサードリンク



Excel実行結果

開始前


実行結果

スポンサードリンク





Excel Tipsメニューに戻る

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


関連コンテンツ

Copyright (c) Excel-Excel ! All rights reserved