|
アーバン さん、こんにちわ。
すみません、分岐が間違ってました。
PictureFormatを参照している部分を全部Ifブロック内に入れてください。
>>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
> '元の図のトリミングを解除 ←Ifブロックの中に入れてください。
> With pf1
> .CropLeft = 0#
> .CropRight = 0#
> .CropTop = 0#
> .CropBottom = 0#
> End With
>> End If
>> Set pf1 = Nothing
>>End Sub
|
|