Excel VBA質問箱 IV

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

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


5626 / 76732 ←次へ | 前へ→

【76714】Re:図形のコピー
発言  β  - 15/3/3(火) 18:53 -

引用なし
パスワード
   ▼かかし さん:

>入力シートと印刷シートを分けて入力シートにはフォームコントロールがありこれを印刷したくないために

フォームコントロールも含めて、シェープはそのプロパティで、「オブジェクトを印刷する」の
チェックをはずしておけば印刷されないと思いますが?

ともあれ、以下はSheet1の図を、Sheet2の同じ場所にコピーする参考コードです。

Sub test()
  Dim sp As Shape
  Dim l As Double
  Dim t As Double
  With Sheets("Sheet1").Shapes("Picture 1")
    l = .Left
    t = .Top
    .DrawingObject.Copy
  End With
  
  With Sheets("Sheet2")
    .Paste
    DoEvents  'おまじない
    With .Shapes(.Shapes.Count)
      .Left = l
      .Top = t
    End With
  End With
    
End Sub

265 hits

【76713】図形のコピー かかし 15/3/3(火) 17:31 質問[未読]
【76714】Re:図形のコピー β 15/3/3(火) 18:53 発言[未読]
【76715】Re:図形のコピー かかし 15/3/4(水) 8:39 質問[未読]
【76716】Re:図形のコピー β 15/3/4(水) 9:14 発言[未読]
【76717】Re:図形のコピー かかし 15/3/4(水) 9:55 質問[未読]
【76723】Re:図形のコピー β 15/3/4(水) 21:20 発言[未読]
【76724】Re:図形のコピー β 15/3/4(水) 21:37 発言[未読]
【76725】Re:図形のコピー かかし 15/3/5(木) 9:01 お礼[未読]

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