如何在Excel中設置圖表的絕對位置?
通常,在Excel中創(chuàng)建或移動圖表時,我們可能會隨機放置圖表。 但是,在某些特殊情況下,您可能希望將圖表放置在精確的位置,例如從單元格A1開始,保持在范圍A1:D5或其他位置。 在這里,我將介紹一個VBA來設置Excel中圖表的絕對位置。
應用VBA在Excel中設置圖表的絕對位置在Excel中設置圖表絕對位置的絕佳工具 應用VBA在Excel中設置圖表的絕對位置例如,您創(chuàng)建了一個圖表并將其隨機放置在工作表中,如下圖所示。 現(xiàn)在,我將介紹一個VBA,以快速輕松地將圖表移至精確且絕對的位置。
1。 選擇要為其設置絕對位置的圖表,然后按 其他 + F11 鍵以打開“ Microsoft Visual Basic應用程序”窗口。
2。 點擊 插頁 > 模塊,然后在VBA下面粘貼到新的模塊窗口中。
VBA:在Excel中設置圖表的絕對位置
Sub Test()Dim xRg As RangeDim xChart As ChartObjectSet xRg = Range("D1:J13")Set xChart = ActiveSheet.ChartObjects(1)With xChart.Top = xRg(1).Top.Left = xRg(1).Left.Width = xRg.Width.Height = xRg.HeightEnd WithEnd SubCopyNote: In above code, Set xRg = Range("D1:J13") means move and place the chart into Range D1:J13. You can change the range as you need.3. Press F5 key or click the Run button to run this VBA.Now you will see the chart is moved to the precise position as you specified in the VBA. See screenshot: