Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

12673 / 76734

←次へ　｜　前へ→


	【69577】Re:オブジェクトの選択

VBA初心者 - 11/8/4(木) 11:48 -


	引用なし

	パスワード

エラーが発生していた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

/////

12 hits

▼

【69573】オブジェクトの選択 VBA初心者 11/8/3(水) 18:17