オートシェイプを作成後コピーし、GIF画像で貼り付け : Excel(エクセル)

Excel Tipsメニューに戻る

スポンサーリンク






Excelのシェイプに文字を入力し回転すると、シェイプ自体は回転しますが文字は回転できません。そこでコピーしたものをGIF形式にしペーストすると画像になる為、文字も回転できるようになります。但し、文字の編集はできなくなります。

ExcelシートのVBAコード

Option Explicit

'シェイプを作成後コピーしGIF形式で貼り付けする
Sub ExMakeShape()
    Dim tshape As Shape
    
    '元の図形を作成
    With ActiveSheet.Range("D9:E15")
        Set tshape = ActiveSheet.Shapes.AddShape(Type:=msoShapeLeftArrow, _
        Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height)
    End With
    '文字をセット
    tshape.TextFrame.Characters.Text = "シェイプ"
    'コピー
    tshape.Copy
    '削除
    tshape.Delete
    Set tshape = Nothing
    'GIF形式で貼り付け
    ActiveSheet.PasteSpecial Format:="図 (GIF)", Link:=False, DisplayAsIcon:=False
End Sub

Private Sub CommandButton1_Click()
    ExMakeShape
End Sub

スポンサーリンク


Excel実行画面

ボタンをクリックすると、シェイプを作成し、「シェイプ」と文字をセットします。
次に、コピー後削除し、GIF形式で貼り付けます。
GIF画像で貼り付け

スポンサーリンク







Excel Tipsメニューに戻る

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


Copyright (c) Excel-Excel ! All rights reserved