0

VBScript では、開いている Excel シート自体にグラフを作成するにはどうすればよいですか? 私がマクロで書いたコードは次のとおりです。

Set objWriteExcel = CreateObject("Excel.Application")
objWriteExcel.Visible = False
Set objWriteWorkbook = objWriteExcel.Workbooks.Open("E:\Surendra\VBCode\Graph\newSheet.xls")
Set objWriteSheet = objWriteWorkbook.Worksheets(1)
Set objWriteSheet2 = objWriteWorkbook.Worksheets(2)   
Set oMychart = objWriteSheet.ChartObjects.Add(50, 50, 1000, 500).Chart   
oMychart.ChartType = 73
oMychart.SetSourceData objWriteSheet2.Range("A2:B2001")   
oMychart.ChartTitle.Text = "Acclaration VS Time"
objWriteWorkbook.SaveAs ("E:\Surendra\VBCode\Graph\newSheet.xls"), -4143
objWriteExcel.Quit

ここでnewsheet.xls、あるセルで作成したときに、同じワークブックのシート 2 からデータを取得してグラフを作成する必要があります。しかし、シートが既に開いていworkbooks.openて、コマンドを使用すると、チャートが表示されません。オブジェクトがなければ、スクリプトは機能しないと思います。

このマクロを VBScript ファイルとして実行すると正常に動作しますが、同じコードをマクロとしてシートに追加して実行すると動作しません。

同じ開いているシートにグラフをプロットする方法を教えてください。

4

1 に答える 1

0

シングルクリックイベントに反応する方法を知りません。ただし、イベントに反応することはできSelectionChangeます:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  'do stuff
End Sub

このマクロは、現在選択されているセルをクリックしても起動せず、以前とは異なるセルを選択した場合にのみ起動することに注意してください。

また、マクロはワークシートにバインドする必要があります。マクロ エディターを開き、プロジェクト エクスプローラー ウィンドウで「Sheet1」をダブルクリックします。新しいコード ウィンドウにコードを入力します。詳細な説明については、こちらを参照してください。

Worksheet_SelectionChangeグラフの作成をマクロとして記録し、手順に貼り付けます。

于 2013-06-04T11:44:51.207 に答える