|
Blue さん、早速の回答ありがとうございます。
教えていただいた方法を試してみたところ、バッチリうまくいきました。
本当にありがとうございました。
▼Blue さん:
>▼こやま〜ん さん:
>>下記のように、図形描画をコピーするときに、コピーした図形の名前(コピー元で言うところの「グループ1」)を任意に変更することはできるのでしょうか?
>>できるのであればその方法をご指南ください。
>>
>>Worksheets(Sheetname1).Shapes("グループ1").Copy
>>Worksheets(Sheetname2).Paste
>> ^^^^^
>>このコピーした描画を、例えば「グループ900」と命名して扱いたい。
>>
>>宜しくお願いします。
>Sheetname2に一番最後のDrawingObjectがCopyされたものですので、
>
> Worksheets(Sheetname1).Copy
> With Worksheets(Sheetname2)
> .Paste
> With .DrawingObjects(.DrawingObjects.Count)
> .Name = "グループ900"
> End With
> End With
>
>てな感じでいけるんじゃないかな。
|
|