| 
    
     |  | shousuke さん、かいとさん、こんにちは。かみちゃん です。 
 > Private Sub CmbUPDATE_Click()
 >  Set wpage = ActiveWorkbook.PublishObjects.Add _
 >    (SourceType:=xlSourceRange, _
 >    Filename:="C:\Documents and Settings\ (省略)\graph1.htm", _
 >    Sheet:="sheet1", _
 >    Source:="I2:V44", _
 >    Title:="GRAPH").wpage.Publish(True)
 > End Sub
 
 私の環境は、WindowsXP HomeEdition、Excel2002ですが、shousuke さんのこのコードでは、かいとさんがおっしゃている「コンパイル エラー メソッドまたはデータメンバが見つかりません。」となります。
 
 Private Sub CmbUPDATE_Click()
 Set wpage = ActiveWorkbook.PublishObjects.Add _
 (SourceType:=xlSourceRange, _
 Filename:="C:\Documents and Settings\ (省略)\graph1.htm", _
 Sheet:="sheet1", _
 Source:="I2:V44", _
 Title:="GRAPH")
 wPage.Publish True
 End Sub
 
 とすると、私の環境ではうまく動くようです。
 
 > ちなみに前回の段階で出ていたエラーは
 >
 > "実行時エラー ’1004':
 > アプリケーション定義またはオブジェクト定義のエラーです。"
 
 かいとさん、こういう情報は、一番最初に出してください。
 それと、このエラーは
 >最後の "wPage.Publish True"でエラーがでます。
 ではなく
 Set wpage = ActiveWorkbook.PublishObjects.Add _
 〜
 Title:="GRAPH")
 で出ていませんか?
 
 Filename:="C:\Documents and Settings\ (省略)\graph1.htm", _
 が、存在しないパス(フルパスのファイル名)を指定していたり
 Sheet:="sheet1", _
 が、存在しない存在しないシートを指定していたりすると、
 このエラーが私の環境では出ました。
 
 |  |