Excel'de grafikteki gösterge girişlerinde değişiklik yaptığınızda "Çalışma Zamanı Hatası 1004"

  • Makale
  • Şunlara uygulanır:
    Microsoft Excel

Belirtiler

Bir Microsoft Excel grafiğindeki gösterge girişlerinde değişiklik yapmak için LegendEntries yöntemini kullanan bir Microsoft Visual Basic for Applications (VBA) makrosu çalıştırdığınızda, aşağıdaki hata iletisini alabilirsiniz:

Çalışma zamanı hatası '1004': Uygulama veya nesne tanımlı hata

Neden

Excel grafiği, Excel grafiğinde gösterge girdilerini görüntülemek için kullanılabilir alandan daha fazla gösterge girdisi içerdiğinde bu davranış oluşur. Bu davranış oluştuğunda, Microsoft Excel gösterge girdilerini kesebilir.

VBA makronuzdaki LegendEntries yöntemi gösterge için görüntülenenleri kullandığından (bu durumda, kesilmiş gösterge girdileri), bu makalenin "Belirtiler" bölümünde belirtilen hata iletisi, Excel grafiğinde gösterge girdilerini görüntülemek için kullanılabilir alandan daha fazla girdi olduğunda oluşur.

Geçici Çözüm

Microsoft, belirli bir amaç için satılabilirlik ve/veya uygunluk zımni garantileri dahil ancak bunlarla sınırlı olmamak üzere açık veya zımni garanti vermeden, yalnızca illüstrasyon için programlama örnekleri sağlar. Bu makale, gösterilen programlama dilini ve yordamları oluşturmak ve hata ayıklamak amacıyla kullanılan araçları kullanmayı bildiğinizi varsayar. Microsoft destek ekipleri, belirli bir yordamın işlevselliğinin açıklanmasına yardımcı olabilir ancak gereksinimlerinizi karşılamaya yönelik olarak ek işlevsellik sağlamak veya yordamlar geliştirmek amacıyla bu örnekleri değiştirmezler.

Sağlanan destek seçenekleri ve Microsoft'a başvurma hakkında daha fazla bilgi için aşağıdaki Microsoft Web sitesini ziyaret edin:

https://support.microsoft.com

Bu davranışa geçici bir çözüm olarak, VBA makronuz grafik göstergesinde değişiklik yapmadan önce Excel grafik göstergesi metninin yazı tipi boyutunu azaltan bir makro oluşturun ve ardından grafik göstergesinin yazı tipi boyutunu aşağıdaki makro örneğine benzer olacak şekilde geri yükleyin.

Not

Bu makroyu düzgün çalıştırabilmek için çalışma sayfanızda bir Excel grafiği olmalıdır.

Sub ResizeLegendEntries()

With Worksheets("Sheet1").ChartObjects(1).Activate
      ' Store the current font size
      fntSZ = ActiveChart.Legend.Font.Size

'Temporarily change the font size.
      ActiveChart.Legend.Font.Size = 2

'Place your LegendEntries macro code here to make
         'the changes that you want to the chart legend.

' Restore the font size.
      ActiveChart.Legend.Font.Size = fntSZ
   End With

End Sub