Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


9877 / 13644 ツリー ←次へ | 前へ→

【24993】図形の名前の再取得 いな 05/5/16(月) 23:35 質問[未読]
【24994】Re:図形の名前の再取得 ウッシ 05/5/17(火) 0:35 回答[未読]

【24993】図形の名前の再取得
質問  いな  - 05/5/16(月) 23:35 -

引用なし
パスワード
   はじめまして。
いなと申します。
先週からVBA初めて、頑張って勉強してるつもりなんですが、
行き詰って困ってるので、よろしければアドバイスお願いします。

今、print screenでコピーした画像をシートに貼り付けて、選択範囲だけトリミングして、好きなセル範囲に貼り付けるというのを作ってます。
画像の名前をシートにはりつけた時点で適当な名前に変えて、処理が全て終わったら元の名前に戻したいんですが、それができません。
最初名前を変える前に、元の名前を任意のセルに入れておいて
最後にそのセル内の文字列を画像の名前に戻そうとしてます。

Private Sub CommandButton1_Click()
 ActiveSheet.Paste
 Range("R1").Value = Selection.ShapeRange.Name
 Selection.ShapeRange.Name = "harituke"
 Selection.ShapeRange.Top = Range("B11").Top
 Selection.ShapeRange.Left = Range("B11").Left
 MsgBox ("オートシェイプの四角形で、使用する画像範囲を指定し、実行ボタンを押して下さい。")
End Sub

Sub Namae()
  Sheets(1).Shapes("harituke").Name = Range("R1").Value
  Range("R1").Delete 
End Sub

名前に関していじってるのは、このくらいだと思うんでが、最後に名前が変わりません。
初歩的なことではあると思うのですが、どなたか教えていただけないでしょうか?

【24994】Re:図形の名前の再取得
回答  ウッシ  - 05/5/17(火) 0:35 -

引用なし
パスワード
   こんばんは

  Sheets(1).Shapes("harituke").OLEFormat.Object.Name = Range("R1").Value

とするとどうでしょうか?

9877 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free