Excel'de bir grafiğin mutlak konumunu nasıl ayarlayabilirsiniz?

Örneğin, bir grafik oluşturdunuz ve aşağıdaki ekran görüntüsünde gösterildiği gibi çalışma sayfasına rastgele yerleştirdiniz. Şimdi, bu grafiği hızlıca kesin ve mutlak bir konuma kolayca taşımak için bir VBA tanıtacağım.

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

2. Ekle > Modül'e tıklayın ve aşağıdaki VBA kodunu yeni modül penceresine yapıştırı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ği D1:J13 aralığına taşımak ve yerleştirmek anlamına gelir. İhtiyaçlarınıza göre bu aralığı değiştirebilirsiniz.

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

Şimdi, grafiğin VBA'da belirttiğiniz kesin konuma taşındığını göreceksiniz. Ekran görüntüsüne bakın:

Eğer Kutools for Excel yüklüyse, harika grafik aracı olan – Grafiğin Mutlak Konumunu Ayarla özelliğini kullanarak grafiği Excel'de belirli bir aralığa taşımak ve yeniden boyutlandırmak için uygulayabilirsiniz.

1Mutlak bir konuma ayarlayacağınız grafiği seçin ve tıklayın Kutools > Charts > Chart Tools > Set Absolute Position of Chart.

2Açılan diyalog kutusunda, grafiği taşıyacağınız konumu belirtin ve Tamam düğmesine tıklayın.

Şimdi seçilen grafik, belirtilen konuma taşınmış ve aynı zamanda belirtilen aralığa yeniden boyutlandırılmış olacaktır. Ekran görüntüsüne bakın: