Word VBA質問箱 IV

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

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


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

326 / 886

←次へ　｜　前へ→


	【576】クリップボードの中身を確認したい

たかみ - 08/6/12(木) 16:12 -


	引用なし

	パスワード

はじめまして。
ExcelのVBAは少々理解できるのですが、Wordは勝手が違って戸惑っております。
表題の件で、ご教示いただければうれしいです。

クリップボードに取り込んだ画像を文書中に貼り付けて、その後書式変更するという作業があるのですが、変更内容がほぼお決まりの手順なので、マクロの記録をしてそれを修正して使おうとしています。

それで、画像データを貼り付ける前に、そもそもクリップボードに画像データが入っているのかどうかと、それが画像であるかどうかを確認したくて、どうコードを書けばいいのかヘルプやネットで調べたのですが、情報を見つけることができず、仕方なしに、Excelのマクロを無理やり以下のようにして使うことにしました。

Sub Clipboard_Check(Flag As Boolean)
Dim xlApp As Object
Dim CB As Variant

　　Set xlApp = CreateObject("Excel.Application")
　　
　　CB = xlApp.ClipboardFormats
　　If CB(1) = True Then
　　　　MsgBox "クリップボードは空です。", vbExclamation
　　　　Flag = True
　　　　Exit Sub
　　End If
　　
　　If CB(1) <> 2 Then
　　　　MsgBox "クリップボードのデータは、図ではありません。" & vbCrLf & _
　　　　"図をクリップボードにコピーしなおしてください。", vbExclamation
　　　　Flag = True
　　　　Exit Sub
　　End If
　　
　　xlApp.Quit
　　Set xlApp = Nothing
End Sub

とりあえずこれでもWord内で動くのでいいのかもしれないですが、かなり強引な力技だなあという気もしているので、Wordで上記のようなことをするのであれば、本来はどのようにするべきか、アドバイスなどいただきたくお願いいたします。

1,842 hits

▼

【576】クリップボードの中身を確認したい たかみ 08/6/12(木) 16:12