Merhaba arkadaşlar,
Excel'de grafik çizerken, hazır şablon kullanıyorum. Bu işlemi makro olarak kaydettim, aşağıda kayedilmiş olan bu makroyu genele yaymak istiyorum.Şöyle ki, o anda çizdiğim grafik örneğin A1 :V300 aralığındaysa, A1 hücresinden verilerin başlangıcı sabit olmak kaydıyle, bitiş için kullanıcıya soran, kullanıcının girdiği son hücre değerine göre aynı işlemi yapan bir makro kaydetmek istiyorum. Bununla beraber, aşağıdaki uygulamada yer alan :"Test No: 1209, Motor Test1 " grafik başlığı kısmınında kullanıcıya "grafik başlığını giriniz" diye soran ve grafik başlığına bu girilen yazıyı yazan bir makro oluşturmak istiyorum.
Bu konu için yardımcı olabilirseniz, çok memnun olurum. Çünkü çizmem gereken ve de çizilecek o kadar çok grafik var ki!!!
Range("M4:V300").Select
Charts.Add
ActiveChart.ApplyCustomType ChartType:=xlUserDefined, TypeName:="graph1"
ActiveChart.SetSourceData Source:=Sheets("Mdata").Range("M4:V300"), _
PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = _
"Test No: 1209, Motor Test1 "
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Time (hours)"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Temperature (°C)"
End With
End Sub
Excel'de grafik çizerken, hazır şablon kullanıyorum. Bu işlemi makro olarak kaydettim, aşağıda kayedilmiş olan bu makroyu genele yaymak istiyorum.Şöyle ki, o anda çizdiğim grafik örneğin A1 :V300 aralığındaysa, A1 hücresinden verilerin başlangıcı sabit olmak kaydıyle, bitiş için kullanıcıya soran, kullanıcının girdiği son hücre değerine göre aynı işlemi yapan bir makro kaydetmek istiyorum. Bununla beraber, aşağıdaki uygulamada yer alan :"Test No: 1209, Motor Test1 " grafik başlığı kısmınında kullanıcıya "grafik başlığını giriniz" diye soran ve grafik başlığına bu girilen yazıyı yazan bir makro oluşturmak istiyorum.
Bu konu için yardımcı olabilirseniz, çok memnun olurum. Çünkü çizmem gereken ve de çizilecek o kadar çok grafik var ki!!!
Range("M4:V300").Select
Charts.Add
ActiveChart.ApplyCustomType ChartType:=xlUserDefined, TypeName:="graph1"
ActiveChart.SetSourceData Source:=Sheets("Mdata").Range("M4:V300"), _
PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = _
"Test No: 1209, Motor Test1 "
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Time (hours)"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Temperature (°C)"
End With
End Sub