Excel VBA質問箱 IV

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

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


39802 / 76738 ←次へ | 前へ→

【42042】Re:貼付画像の切り抜き
回答  りん E-MAIL  - 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

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

0 hits

【42038】貼付画像の切り抜き アーバン 06/8/30(水) 9:29 質問
【42040】Re:貼付画像の切り抜き りん 06/8/30(水) 9:42 発言
【42041】Re:貼付画像の切り抜き アーバン 06/8/30(水) 10:21 発言
【42042】Re:貼付画像の切り抜き りん 06/8/30(水) 11:16 回答
【42044】Re:貼付画像の切り抜き アーバン 06/8/30(水) 12:26 お礼
【42047】Re:貼付画像の切り抜き りん 06/8/30(水) 13:02 発言
【42084】Re:貼付画像の切り抜き(2) アーバン 06/8/31(木) 12:20 お礼

39802 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free