|
はじめまして。
いなと申します。
先週から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
名前に関していじってるのは、このくらいだと思うんでが、最後に名前が変わりません。
初歩的なことではあると思うのですが、どなたか教えていただけないでしょうか?
|
|