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

1. Mutabakat konumunu ayarlayacağınız tabloyu seçin ve düğmesine basın. Ara Toplam + F11 Microsoft Visual Basic for Applications penceresini açmak için tuşlar.

2. tıklayın Ekle > modülve VBA'nın altına yeni modül penceresine yapıştırın.

VBA: Excel'de bir grafiğin mutlak konumunu ayarlayın

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, XRg = Aralık ("D1: J13") ayarla tabloyu Aralık D1: J13'e taşımak ve yerleştirmek anlamına gelir. Aralığı istediğiniz gibi değiştirebilirsiniz.

3. Basın F5 anahtarı veya tıklayın koşmak Bu VBA'yı çalıştırmak için düğmesine basın.

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

Kutools for Excel yüklüyse, muhteşem grafik aracını uygulayabilirsiniz - Haritanın Mutlak Konumunu Ayarla Excel'de bir grafiği belirli bir aralığa taşımak ve yeniden boyutlandırmak için.

1. Mutlak konum belirleyeceğiniz grafiği seçin ve tıklayın Kutools > Grafikler > Grafik Araçları > Haritanın Mutlak Konumunu Ayarla.

2. Açılır iletişim kutusunda, grafiği taşıyacağınız konumu belirtin ve Ok düğmesine basın.

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