C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

Re[2]: 現在開いているExcelに描画するには

分類:[VB.NET/VB2005 以降]　

下のコードは、新しくExcelファイルを作成して描画しますが、これを現在開いているExcelに描画するにはどうすれば良いですか？
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

xlClose = False '起動中は、ユーザが Excel を閉じれないように
xlApp = New Excel.Application
AddHandler xlApp.WorkbookBeforeClose, AddressOf xlApp_WorkbookBeforeClose
xlBooks = xlApp.Workbooks
xlBook = xlBooks.Add '新規のファイルを開く
xlSheets = xlBook.Worksheets
xlSheet = DirectCast(xlSheets.Item(1), Excel.Worksheet)
xlApp.Visible = True
Dim xlShapes As Excel.Shapes
Dim xlShape As Excel.Shape
xlShapes = xlSheet.Shapes
xlShape = xlShapes.AddShape(MsoAutoShapeType.msoShapeCloudCallout, 100, 30, 100, 40) '雲形吹き出しを描画

End Sub

■No68830 (coscos さん) に返信
> これを現在開いているExcelに描画するにはどうすれば良いですか？
xlApp = New Excel.Application
という部分を、GetObject にするか、ROT から拾うようにしてみてください。
http://hpcgi1.nifty.com/MADIA/VBBBS2/wwwlng.cgi?print+200907/09070041.txt
http://bbs.wankuma.com/index.cgi?mode=al2&namber=66570&KLOG=112

ところで、複数の Excel が開かれていた場合、そのすべてを操作するのでしょうか。
それとも、特定の Excel だけでしょうか。だとすれば目的の Excel をどのように区別しますか?

■No68831 (魔界の仮面弁士さん) に返信
有り難う御座いました。出来ました。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
xlClose = False '起動中は、ユーザが Excel を閉じれないように
xlApp = GetObject(, "Excel.Application")
xlBooks = xlApp.Workbooks
xlSheet = DirectCast(xlApp.ActiveSheet, Excel.Worksheet)
xlApp.Visible = True
Dim xlShapes As Excel.Shapes
Dim xlShape As Excel.Shape
xlShapes = xlSheet.Shapes
xlShape = xlShapes.AddShape(MsoAutoShapeType.msoShapeCloudCallout, 100, 30, 100, 40) '雲形吹き出しを描画
End Sub
> ところで、複数の Excel が開かれていた場合、そのすべてを操作するのでしょうか。
一つだけですので、これで良いです。
> それとも、特定の Excel だけでしょうか。だとすれば目的の Excel をどのように区別しますか?
現在アクティブなシートだけで良いです。
どうも有り難う御座いました。

C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

Re[2]: 現在開いているExcelに描画するには

過去ログには書き込み不可