前回の質問と関係してくるのですが、シート1に貼り付けている図を取り囲む周囲のセルをコピーし、シート2に、

前回の質問と関係してくるのですが、シート1に貼り付けている図を取り囲む周囲のセルをコピーし、シート2に、 リンクされた図として貼り付けるマクロを次のように考えたのですが、、、、どうもうまくいきません、、、どうすればよいでしょうか。 Sub test() Dim ob As worksheets("シート1").Object, migisita As Range,hidariue As Range Set ob = Selection Set hidariue = ob.TopLeftCell Set migisita = ob.BottomRightCell hidariue.Select migisita.Select With Worksheets("シート1") .Range(.hidariue, .migisita).Copy End With Application.Goto Worksheets("シート2").Range("A1") ActiveSheet.Pictures.Paste Link:=True End Sub

Excel26閲覧

ベストアンサー

0

ツッコミどころが多すぎて(´・ω・) Sub test() Dim ob As Object, migisita As Range, hidariue As Range Worksheets("シート1").Activate Set ob = Selection Set hidariue = ob.TopLeftCell Set migisita = ob.BottomRightCell Range(hidariue, migisita).Copy Application.Goto Worksheets("シート2").Range("A1") ActiveSheet.Pictures.Paste Link:=True End Sub

Dim ob As worksheets("シート1").Object 変数の型宣言でシート名指定は出来ません(定数なら出来るんですが割愛します)。 hidariue.Select migisita.Select 左上を選択した後に右下を選択すると、左上の選択は解除されます。 またこの後の挙動的に選択する意味は皆無です。 続くよ(´・ω・)

ThanksImg質問者からのお礼コメント

このたびは非常に細かく御教示いただき誠にありがとうございました。 大変助かっております(^^♪

お礼日時:9/25 20:27