2016-05-17 11 views
0

VBAにはかなり新しくなっています。すべての作業が、私はセルF36、別にタイトルからすべてのグラフィックの変更で参照を変更VBAを使用したグラフィックのタイトルを変更する

Range("G37:G45").Select 
    ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select 
    ActiveChart.SetSourceData Source:=Range("Analisis!$G$37:$G$45") 
    ActiveChart.PlotArea.Select 
    ActiveChart.FullSeriesCollection(1).XValues = "=Analisis!$H$37:$H$45" 
    ActiveChart.FullSeriesCollection(1).Select 
    ActiveChart.FullSeriesCollection(1).ApplyDataLabels 

    ActiveChart.ChartTitle.Select 
    ActiveChart.ChartTitle.Text = Sheets("Analisis").Range("F36") 

基本的に:私は、コードのこの部分を持っています。私は何かを追加する必要がありますか? おかげ

+1

このコードは一度だけ実行されます。だから、それが実行されている間にF36から値を取ってチャートのタイトルとして追加します。自動的に更新される式ではありません –

答えて

0

試してみてください。

ActiveChart.ChartTitle.Caption = "=Analisis!F36" 
関連する問題