| |
エラーが発生していたPCでは、
「図形の数 = 1」⇒「正方形/長方形 6」の順に表示されました。
開発環境と実行環境で、Officeのバージョンが違っていたのが
原因では(？)と考え、前回いただいた内容をアレンジして、
以下のように記載を変更してみました。
(環境の違いを記載するのを忘れていました。すみません。)
ちなみに、コピーする図形があるシート(コピー元のシート)には、
この図形のみがあります。
この内容で実行すると、ほかのPCでもエラーが発生しなくなりました。
ほかのエラーが発生する可能性があるかどうかはわかりませんが・・・
/////
Dim shp As Shape
Dim shpnamae As String '←ここを追加
With ActiveSheet
MsgBox "図形の数 = " & .Shapes.count
For Each shp In .Shapes
MsgBox shp.Name
shpnamae = shp.Name '←ここを追加
Next
End With
'1.この図形をコピーする
ActiveSheet.Shapes.Range(Array(shpnamae)).Select
ActiveSheet.Shapes.Range(Array(shpnamae)).Name = "AAA"
Selection.Copy
'2.別のシートに貼り付ける
Sheets(シート名).Select
ActiveSheet.Paste
'3.印刷をする
ActiveSheet.PrintOut
'4.貼り付けた図形を削除する
ActiveSheet.Shapes("AAA").Select
Selection.Delete
/////
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
