excel如何保持图表位置始终不变(可用vba)

发布网友发布时间：2022-08-02 06:58

共3个回答

热心网友时间：2024-10-20 03:34

Dim ch As ChartObject
Set ch = Worksheets("j").ChartObjects.Add(160, 30, 350, 250)
ch.Chart.ChartWizard Source:=Worksheets(j).Range("a1:d11,y81:y91"), _
gallery:=xlLine, Title:="fen"
其中Worksheets("j")是工作表
(160, 30, 350, 250)是位置
("a1:d11,y81:y91")是选定区域追问试了下，插入的位置好像是在某处，可如果我拉动滚动条时，图表却也一起上下滚动了……我需要的是始终保持在某个位置（相对于屏幕，不便于用冻结或拆分），无论我怎样拉动滚动条

热心网友时间：2024-10-20 03:34

可以工作表中插入一个图表，并设置好单元格冻结或拆分，都能保证图表始终显示在视野中

热心网友时间：2024-10-20 03:35

如将图标1对齐到G10单元格：
Sub A()
Dim x As Double, y As Double

x = Range("G10").Left
y = Range("G10").Top

Sheet1.Shapes("图表 1").Left = x
Sheet1.Shapes("图表 1").Top = y
End Sub