Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

39796 / 76732

←次へ　｜　前へ→


	【42042】Re:貼付画像の切り抜き

りん

- 06/8/30(水) 11:16 -


	引用なし

	パスワード

アーバンさん、こんにちわ。

>細かく、画像加工ソフトでいう四角範囲を切り抜くのと同じ様な意味合い
>で、選択とコピーが出来たらと考えております。
>範囲選択の方法はどの様でも結構です。例えで、シェイプの四角形の範囲
>と記載してみました。

図形の重なった部分をコピーする方法をいろいろ試して見ましたが、セルの時のようにはうまくいかなかったので、別の方法を考えてみました。

（準備）
図ツールバーを表示して、欲しい部分だけをトリミングし、その図を選択しておく。
以下のマクロを実行。

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

これで、欲しい部分だけコピーできるようです。

1 hits

▼

【42038】貼付画像の切り抜き アーバン 06/8/30(水) 9:29