|
アーバン さん、こんにちわ。
>細かく、画像加工ソフトでいう四角範囲を切り抜くのと同じ様な意味合い
>で、選択とコピーが出来たらと考えております。
>範囲選択の方法はどの様でも結構です。例えで、シェイプの四角形の範囲
>と記載してみました。
図形の重なった部分をコピーする方法をいろいろ試して見ましたが、セルの時のようにはうまくいかなかったので、別の方法を考えてみました。
(準備)
図ツールバーを表示して、欲しい部分だけをトリミングし、その図を選択しておく。
以下のマクロを実行。
Sub test()
Dim pf1 As PictureFormat
On Error Resume Next
Set pf1 = Selection.ShapeRange.PictureFormat
On Error GoTo 0
'複製を作成
If Not pf1 Is Nothing Then
pf1.Parent.Item(1).CopyPicture xlScreen, xlBitmap
'ペースト先は同じシートのH1
With Application.ActiveSheet
.Paste Destination:=.Range("H1")
End With
End If
'元の図のトリミングを解除
With pf1
.CropLeft = 0#
.CropRight = 0#
.CropTop = 0#
.CropBottom = 0#
End With
Set pf1 = Nothing
End Sub
これで、欲しい部分だけコピーできるようです。
|
|