[[20110422132316]]　『オートシェイプの四隅などにある小さい白抜きを消』（モモ助）　ページの最後に飛ぶ

『オートシェイプの四隅などにある小さい白抜きを消したい』（モモ助）

 勉強し始めたばかりで分からないのですが下記のコードを動かすとオートシェイプの四隅などにある小さい白抜きを消したいのですが教えてください。
 Selection.ShapeRange.IncrementLeft -32
 Excel2003,WindowsXP

 こんなのとか

 Sub test()
    Selection.ShapeRange.IncrementLeft -32
    ActiveCell.Activate
 End Sub

ぶらっと立ち寄り

 ぶらっと立ち寄りさん、ご返事ありがとうございます。
 出来ました。オートシェイプって自動的に名前が付きますが自動で名前の変更等は出来るのでしょうか？
 （モモ助）

シェープを選択した状態で

Sub TestTest()

    Selection.Name = "すきな名前"
End Sub

ぶらっと立ち寄り

 ぶらっと立ち寄りさん、ご返事ありがとうございます。
 再度お教えいただきありがとうございます。
 オートシェイプを動かすと役立ちそうです。
（モモ助）

コメント返信：