Excel'de bir grafiğin mutlak konumu nasıl ayarlanır?

Örneğin, aşağıdaki ekran görüntüsünde gösterildiği gibi bir grafik oluşturmuş ve onu çalışma sayfasında rastgele bir konuma yerleştirmiş olabilirsiniz. Şimdi, bu grafiği kolayca kesin ve mutlak bir konuma hızlıca taşımanıza yardımcı olacak bir VBA kodunu tanıtacağım.

1. Mutlak konumunu ayarlamak istediğiniz grafiği seçin ve Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.

2. Yeni bir modül penceresine aşağıdaki VBA kodunu yapıştırmak için Ekle > Modül seçeneğine tıklayın.

VBA: Excel'de bir grafiğin mutlak konumunu ayarlama

Sub Test()
Dim xRg As Range
Dim xChart As ChartObject
Set xRg = Range("D1:J13")
Set xChart = ActiveSheet.ChartObjects(1)
With xChart
.Top = xRg(1).Top
.Left = xRg(1).Left
.Width = xRg.Width
.Height = xRg.Height
End With
End Sub

Not: Yukarıdaki kodda, Set xRg = Range("D1:J13") ifadesi, grafiğin D1:J13 aralığına taşınması ve yerleştirilmesi anlamına gelir. İhtiyacınıza göre bu aralığı istediğiniz gibi değiştirebilirsiniz.

3. Bu VBA kodunu çalıştırmak için F5 tuşuna basın veya Çalıştır düğmesine tıklayın.

Artık grafiğin VBA'da belirttiğiniz tam konuma taşındığını göreceksiniz. Ekran görüntüsüne göz atın:

Eğer Kutools for Excel yüklüyse, Excel'de bir grafiği belirli bir Sınırlı Aralık'na taşıyıp yeniden boyutlandırmak için harika grafik aracını – Grafik Mutlak Konumunu Ayarla – kullanabilirsiniz.

1. Mutlak konuma ayarlamak istediğiniz grafiği seçin ve Kutools > Grafikler > Grafik Araçları > Grafik Mutlak Konumunu Ayarla seçeneğine tıklayın.

2. Açılan iletişim kutusunda grafiğin taşınacağı konumu belirtin ve Tamam düğmesine tıklayın.

Artık seçili grafik belirtilen konuma taşındı ve aynı anda Sınırlı aralık boyutuna göre yeniden boyutlandırıldı. Ekran görüntüsüne bakın: