|
▼りん さん こんにちわ。
ご回答ありがとうございます。
早速実行してみまして成功しました。
BMPにした図面を挿入し、必要部位をコピーしては貼付して、
標準類のポイントカードを作成するのに多用致します。
ですので、最後の解除もあると何度も繰り返す作業に最適であり、
至れり尽くせりで助かりました。
以前は、画像化工ソフトで予め作成したものを複数作り、単純に挿入
していた為、追加で絵図がほしい時は、再度作成する手間があり、
考えながら、ほしい時切り貼りできる方法は無いかと考えておりました。
以降は、ボタン配置などしてトリミングしては、コピーしての使い方で
やっていこうと思います。
大変たすかりました。
ありがとうございました。
>(準備)
>図ツールバーを表示して、欲しい部分だけをトリミングし、その図を選択しておく。
>以下のマクロを実行。
>
>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
>
>これで、欲しい部分だけコピーできるようです。
|
|