ExcelでSelectionプロパティを使用するには？ (ID:120912)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 たびたびすみません・・・ 先ほどオブジェクトのName取得で悩んでいたものは皆様のおかげで解決した のですが、そのデータをExcelでプレビューすると一度目は処理が通っても 二度目からSelectionプロパティがNothingで帰ってくる為、エラーで落ちてしまいます。 いろいろ処理方法を変更するなど対策を試みたのですが力不足のせいか一人では解決できませんでした。 もう一度どなたかお知恵をお貸しください。 '表示 XLObj.Visible = True For i = 1 To ObjCount XLWB.ActiveSheet.Shapes(PictureNameG(i)).Select 'プロパティの設定 On Error Resume Next With Selection .Locked = False .Placement = xlMoveAndSize .PrintObject = True .Locked = True .Enabled = False End With On Error GoTo 0 DoEvents Next i XLWB.PrintOut , , nCopy, True 'プレビューを終了する If PreviewNoClose = False Then XLWB.Close False XLObj.Quit End If '終了 Set XLWB = Nothing Set XLObj = Nothing