Na przykład utworzyłeś wykres i umieściłeś go losowo w arkuszu, jak pokazano poniżej. Teraz przedstawię VBA, aby szybko przenieść wykres do precyzyjnej i bezwzględnej pozycji.

1. Wybierz wykres, dla którego chcesz ustawić pozycję rozgrzeszenia, i naciśnij inny + F11 klawisze, aby otworzyć okno Microsoft Visual Basic for Applications.

2. Kliknij wstawka > Modułi wklej poniżej VBA do nowego okna modułu.

VBA: Ustaw pozycję rozgrzeszenia wykresu w Excelu

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

Note: W powyższym kodzie, Ustaw xRg = zakres("D1:J13") oznacza przesunięcie i umieszczenie mapy w Zasięgu D1:J13. Możesz zmienić zakres według potrzeb.

3. naciśnij F5 lub kliknij run przycisk, aby uruchomić ten VBA.

Teraz zobaczysz, że wykres został przesunięty do dokładnej pozycji określonej w VBA. Zobacz zrzut ekranu:

Jeśli masz zainstalowany Kutools dla Excela, możesz zastosować jego niesamowite narzędzie do wykresów – Ustaw bezwzględną pozycję wykresu aby przenieść i zmienić rozmiar wykresu do określonego zakresu w programie Excel.

1. Wybierz wykres, na którym ustawisz pozycję bezwzględną i kliknij Kutools > Wykresy > Narzędzia wykresów > Ustaw bezwzględną pozycję wykresu.

2. W wyskakującym oknie dialogowym określ pozycję, do której chcesz przenieść wykres, i kliknij Ok przycisk.

Teraz wybrany wykres zostanie przesunięty w określoną pozycję i jednocześnie zmieniony do określonego zakresu. Zobacz zrzut ekranu: