Ví dụ: bạn đã tạo một biểu đồ và đặt nó ngẫu nhiên trong trang tính như hình minh họa bên dưới. Bây giờ tôi sẽ giới thiệu một VBA để nhanh chóng di chuyển biểu đồ đến vị trí chính xác và tuyệt đối một cách dễ dàng.

1. Chọn biểu đồ mà bạn sẽ đặt vị trí absolution và nhấn Khác + F11 để mở cửa sổ Microsoft Visual Basic for Applications.

2. Nhấp chuột Chèn > Mô-đunvà dán VBA bên dưới vào cửa sổ mô-đun mới.

VBA: Đặt vị trí phân ly của biểu đồ trong Excel

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

Chú thích: Trong đoạn mã trên, Đặt xRg = Range ("D1: J13") nghĩa là di chuyển và đặt biểu đồ vào Phạm vi D1: J13. Bạn có thể thay đổi phạm vi khi bạn cần.

3. nhấn F5 phím hoặc nhấp vào chạy để chạy VBA này.

Bây giờ bạn sẽ thấy biểu đồ được di chuyển đến vị trí chính xác như bạn đã chỉ định trong VBA. Xem ảnh chụp màn hình:

Nếu bạn đã cài đặt Kutools cho Excel, bạn có thể áp dụng công cụ biểu đồ tuyệt vời của nó - Đặt vị trí tuyệt đối của biểu đồ để di chuyển và thay đổi kích thước biểu đồ thành một phạm vi được chỉ định trong Excel.

1. Chọn biểu đồ mà bạn sẽ đặt vị trí tuyệt đối và nhấp vào Kutools > Bảng xếp hạng > Công cụ biểu đồ > Đặt vị trí tuyệt đối của biểu đồ.

2. Trong hộp thoại bật ra, chỉ định vị trí mà bạn sẽ di chuyển biểu đồ đến và nhấp vào Ok .

Bây giờ biểu đồ đã chọn được di chuyển đến vị trí được chỉ định và thay đổi kích thước thành phạm vi được chỉ định đồng thời. Xem ảnh chụp màn hình: