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
yeni mesaja git
Yeni mesajları sizin için sürekli kontrol ediyoruz, bir mesaj yazılırsa otomatik yükleyeceğiz.Bir Daha Gösterme