关于图表绘图区与单元格居中的代码编写

xiaojia8211

1. With ActiveChart
   
2. 
   
3.     Selection.Height = Cells(c, d).Height
   
4.     Selection.Width = Cells(c, d).Width
   
5.     'a = Selection.Height
   
6.     b = Selection.Width
   
7. End With
   
8. 
   
9. 
   
10. ActiveChart.PlotArea.Select
    
11.     Selection.Fill.Visible = msoFalse
    
12.    
    
13.     Selection.Width = Cells(c, d).Width
    
14.     Selection.Height = Cells(c, d).Height
    
15.    
    
16.     Selection.Top = 0
    
17.     Selection.Left = (Cells(c, d).Width - Selection.Width) / 2

复制代码

我的目的是:想让图表的绘图区与单元格大小一致,居中显示,但代码始终不能居中,请大神指教

493861364

看你贴出的代码应该是截取了一部分
我一般是设置图表区的高度及宽度等于单元格的高度及宽度*0.95（系数你自己可以再试试）
.ChartArea.Width=单元格.Width*0.95
设置图表区的top及left直接等于单元格的属性数值
不能完全大小一致及居中，去掉图表边框线对付还能看
一定还有更优秀的代码，期待大神出手

xiaojia8211

493861364 发表于 2022-1-22 17:35
看你贴出的代码应该是截取了一部分
我一般是设置图表区的高度及宽度等于单元格的高度及宽度*0.95（系数你 ...

我也想到去乘以一个系数或者减一个偏差量,但无法完全适应各种单元格