Excel VBA質問箱 IV

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

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


2932 / 13646 ツリー ←次へ | 前へ→

【65204】Lotus NotesからExcelに画像挿入をしたい a 10/4/27(火) 10:33 質問[未読]
【65216】Re:Lotus NotesからExcelに画像挿入をしたい a 10/4/27(火) 17:50 質問[未読]

【65204】Lotus NotesからExcelに画像挿入をしたい
質問  a  - 10/4/27(火) 10:33 -

引用なし
パスワード
   Excelにてで画像挿入をActiveXとOLEオブジェクトの2パターンを作成し正常に動くのを確認して、Notesへ盛り込んだところうまく動きません。

動作環境:
Lotus Notes 7.0.3
Excel 2003と2007で別PCで確認

・ActiveXの場合
NotesのLotus Scriptにて。
Dim obj As Variant
Set obj = wSheet.OLEObjects.Add("Forms.Image.1", False, False, Left位置, Top位置, 幅, 高さ)
obj.Object.Picture = LoadPicture(ファイル名)

このスクリプトライブラリを保存すると、 LoadPicture が宣言されていない変数で保存できません。
保存できなかったのでOLEオブジェクトにしてみましたが、こちらは実行エラーでどちらも動かせない状態です。


・OLEオブジェクトの場合
ExcelのBVA:
Dim obj As OLEObject
Set obj = wSheet.OLEObjects.Add(Filename:=ファイル名, Link:=False, DisplayAsIcon:=False, Left:=Left位置, Top:=Top位置, Width:=幅, Height:=高さ)

NotesのLotus Script
Dim obj As Variant
Set obj = wSheet.OLEObjects.Add(ファイル名, False, False, Left位置, Top位置, 幅, 高さ)

スクリプトライブラリの保存はできましたが、実行すると下記エラーがでます。
---------------------------
ErrorNo.213: Microsoft Office Excel: OLEObjects クラスの Add プロパティを取得できません。
---------------------------

NotesではOLEObjects は使えないのでしょうか?それとも別の問題でしょうか?
アドバイスよろしくお願いします。
(別サイト「Notes Q&A」でも質問しています)

【65216】Re:Lotus NotesからExcelに画像挿入をし...
質問  a  - 10/4/27(火) 17:50 -

引用なし
パスワード
   OLEObjectsの引数についてやっとサイトが探せました。
(microsoftのサイトのURLをつけたら禁止語句でエラーになり貼付けできませんでした)
引数の数が違っていたので変更して、OLEオブジェクトについては解決しました。

・OLEオブジェクトの場合
誤)Set obj = wSheet.OLEObjects.Add(ファイル名, False, False, Left位置, Top位置, 幅, 高さ)

正)Set obj = wSheet.OLEObjects.Add(, ファイル名, False, False, False, False, False, Left位置, Top位置, 幅, 高さ)

・ActiveXでのLoadPictureの保存時のエラーはまだ解決できません。引き続きよろしくお願いします。

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