| |
はじめまして。
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で上記のようなことをするのであれば、本来はどのようにするべきか、アドバイスなどいただきたくお願いいたします。
|
|
![[未読]](./data/word/image/read_icon.gif){kind=icon}
