投稿日 | : 2005/06/27(Mon) 21:00 |
投稿者 | : ken |
Eメール | : |
URL | : |
タイトル | : EXCEL内のOLEオブジェクト操作 |
こんばんは。
WorkSheetにリッチテキスト文章をOLEオブジェクトとして挿入し、
挿入したオブジェクトの段落設定等を行ないたいのですが、「objectプロパティが取得できません」
とエラーが発生します。
-------- ソース ---------------
Dim obj As OLEObject
Dim wdDoc As Word.Document
dim xlSheet as Excel.WorkSheet
(省略)
'Word文章を挿入
xlSheet.OLEObjects.Add , "c:\aaa.rtf" 'リッチテキストファイルをEXCELに挿入
xlSheet.OLEObjects.Border.LineStyle = xlLineStyleNone
Set wdDoc = xlSheet.OLEObjects(1).object '現状は1個のみのため固定にしてます。
↑ココでエラー発生。
環境はVB6.0 SP5 office2003 OS:XPです。
しかし同一コードを、VB6.0 SP5 OS:XP office2000 で実行しますとエラーは発生しません。
EXCEL(office2003)のVBAでもやりましたがエラーは発生しませんでした。
何故でしょうか?
エラーの対象方法ご存知の方いらっしゃいましたら、宜しくお願い致します。