Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2289 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【68952】フォームにワードを埋め込みたい ケイジ 11/5/2(月) 10:34 質問[未読]
【68953】Re:フォームにワードを埋め込みたい neptune 11/5/2(月) 14:08 発言[未読]
【68954】Re:フォームにワードを埋め込みたい ケイジ 11/5/2(月) 14:43 お礼[未読]
【68959】Re:フォームにワードを埋め込みたい とおりすがり 11/5/2(月) 17:26 回答[未読]
【68960】Re:フォームにワードを埋め込みたい ケイジ 11/5/2(月) 18:20 お礼[未読]
【68952】フォームにワードを埋め込みたい
質問  ケイジ  - 11/5/2(月) 10:34 -
引用なし
パスワード
   こんにちは、初めてこちらで質問させて頂いきます。

やりたいことは、エクセルのフォーム画面に、ワードを埋め込んで表示することです。

VBだとOLEコンテナコントロールをフォームに貼りつけて、
ワードファイルにcreatelinkをすることでワードを埋め込みができるみたいですが、
VBAのツールボックスにOLEコンテナがないので、埋め込むことができないです。
どこかからOLEをインストールすればできるのですか？

よろしくお願いします。
【68953】Re:フォームにワードを埋め込みたい
発言  neptune  - 11/5/2(月) 14:08 -
引用なし
パスワード
   ▼ケイジ さん：
Excelの一般機能ありきのVBAですからそれを利用してはどうですか？
Excelの機能にオブジェクトの挿入ってのがあります。

マクロの記録という強力なhelp機能があるのでそこから目安を付けます。

私の環境では以下の様な記録が取れました。
ここから調べていって下さい。

Sub Macro2()
　　ActiveSheet.OLEObjects.Add(Filename:= _
　　　　"ファイルのフルパス", Link:=False, DisplayAsIcon _
　　　　　　　　　　　　　　　　:=False).Select
　　Selection.ShapeRange.IncrementLeft -348#
　　Selection.ShapeRange.IncrementTop -105.75
　　Range("A1").Select
End Sub
【68954】Re:フォームにワードを埋め込みたい
お礼  ケイジ  - 11/5/2(月) 14:43 -
引用なし
パスワード
   なるほど、オブジェクトの挿入というがあるのですね。
まったく気が付きませんでした。
目のつけどころが違いますね。
ありがとうございます。
とても助かりました。
【68959】Re:フォームにワードを埋め込みたい
回答  とおりすがり  - 11/5/2(月) 17:26 -
引用なし
パスワード
   WebBrowserコントロールを使用する。

Private Sub UserForm_Initialize()
　Me.WebBrowser1.Navigate "D:\test\a.doc"
End Sub
【68960】Re:フォームにワードを埋め込みたい
お礼  ケイジ  - 11/5/2(月) 18:20 -
引用なし
パスワード
   ▼とおりすがり さん：
おーこんなやり方もあるのですね！。
編集もできるようですし、すごく便利です。
ありがとうございます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2289 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free