Excel VBA質問箱 IV

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

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


35063 / 76732 ←次へ | 前へ→

【46872】Re:画像の貼り付け
回答  Kein  - 07/2/19(月) 14:30 -

引用なし
パスワード
   Pasteメソッドの対象オブジェクトに、UserFormやFrameがあったので
こちらでテストしてみましたが、どうしてもCanPasteプロパティがFalse
を返してしまって成功しませんでした(Excel2000)。
なのでExcel95以前に、現在のユーザーフォームの代用として存在していた
ダイアログシートを使ってやってみたところ、コピーした図形や画像を問題なく表示
することが出来ました。
ダイアログシートの出し方ですが、ワークシートタブを右クリックし、「挿入」から「MS Excel5.0 ダイアログ」を選択するだけです。すると"OK"と"キャンセル"ボタン
が配置された "ダイアログフレーム" が一つ見つかるはずですから、マウスドラッグで
思い切り大きさを拡大します。ついでにタイトルバーにカーソルを合わせ、適当な
タイトル文字列に変更します。それからメニューの「書式」「シート」「表示しない」
を選んで非表示にしておき、図形や画像が挿入されているシートに戻り、任意の
オブジェクトを一つ選択してから以下のマクロを実行してください。

Sub Ap_Obj_Dialog()
  Dim Lp As Single, Tp As Single
  Dim Wp As Single, Hp As Single
 
  If VarType(Selection) <> vbObject Then Exit Sub
  With DialogSheets(1)
   If .DrawingObjects.Count > 0 Then
     .DrawingObjects.Delete
   End If
   With .DialogFrame
     Lp = .Left + 5: Tp = .Top + 10
     Wp = .Width - 10: Hp = .Height - 15
   End With
   Selection.Copy
   .Paste
   With .DrawingObjects(1)
     .Left = Lp: .Top = Tp
     .Width = Wp: .Height = Hp
   End With
   .Show
  End With
  Application.CutCopyMode = False
End Sub

ここで
>DialogFrame
というのがユーザーフォームの外枠に該当します。その形はDialogSheet上で
自由に変形できるため、Lp,Tp,Wp,Hp の各変数に入れる値は、マクロを実行
して実際に表示された状態から判断して調節(何ポイント + するか)して下さい。

0 hits

【46863】画像の貼り付け ニッキ 07/2/19(月) 12:04 質問
【46866】Re:画像の貼り付け Kein 07/2/19(月) 13:05 発言
【46869】Re:画像の貼り付け ニッキ 07/2/19(月) 13:33 発言
【46871】Re:画像の貼り付け りん 07/2/19(月) 14:11 発言
【46916】Re:画像の貼り付け ニッキ 07/2/21(水) 16:16 お礼
【46922】Re:画像の貼り付け Ned 07/2/21(水) 18:21 発言
【46926】Re:画像の貼り付け ニッキ 07/2/22(木) 9:31 お礼
【46923】Re:画像の貼り付け りん 07/2/21(水) 19:18 回答
【46925】Re:画像の貼り付け ニッキ 07/2/22(木) 9:29 質問
【46928】Re:画像の貼り付け ニッキ 07/2/22(木) 11:11 質問
【46932】Re:画像の貼り付け りん 07/2/22(木) 13:23 回答
【46934】Re:画像の貼り付け ニッキ 07/2/22(木) 13:48 お礼
【46938】Re:画像の貼り付け りん 07/2/22(木) 16:14 発言
【46872】Re:画像の貼り付け Kein 07/2/19(月) 14:30 回答
【46880】Re:画像の貼り付け ニッキ 07/2/19(月) 16:21 質問
【46882】Re:画像の貼り付け Kein 07/2/19(月) 18:12 回答
【46908】Re:画像の貼り付け ニッキ 07/2/21(水) 15:16 質問
【46910】Re:画像の貼り付け Kein 07/2/21(水) 15:57 発言
【46914】Re:画像の貼り付け ニッキ 07/2/21(水) 16:09 お礼

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