影音先锋电影 用于解决图表&图形的VBA代码大全6：3个有效的图表宏

excelperfect前边的著述：用于解决图表&图形的VBA代码大全1用于解决图表&图形的VBA代码大全2用于解决图表&图形的VBA代码大全3用于解决图表&图形的VBA代码大全4用于解决图表&图形的VBA代码大全5一些有效的图表宏宏1：使图表笼罩单位格区域底下的代码修改现时图表的位置和大小以相宜笼罩单位格区域B2:J18。Sub FitChartToRange() Dim cht As Chart Dim rng As Range '赋值对象到变量 Set cht = ActiveChart Set rng = ActiveSheet.Range('B2:J18') '迁移并鼎新图表大小 cht.Parent.Left = rng.Left cht.Parent.Top = rng.Top cht.Parent.Width = rng.Width cht.Parent.Height = rng.HeightEnd Sub宏2：将图表导出为图片底下的代码将现时图表在指定位置保存为图表。

Sub ExportSingleChartAsImage()  Dim imagePath As String  Dim cht As Chart  imagePath = 'C:\完整Excel\myImage.png'  Set cht = ActiveChart  '导出图表  cht.Export (imagePath)End Sub

宏3：将统共图表的大小鼎新为与现时图表疏导底下的代码鼎新现时使命表中统共图表的大小，以使得它们与现时图表的大小疏导。Sub ResizeAllCharts() Dim chtHeight As Long Dim chtWidth As Long '创建遍历图表对象的变量 Dim chtObj As ChartObject '得到第一个遴荐的图表的大小 chtHeight = ActiveChart.Parent.Height chtWidth = ActiveChart.Parent.Width For Each chtObj In ActiveSheet.ChartObjects chtObj.Height = chtHeight    chtObj.Width = chtWidth Next chtObjEnd Sub 本站仅提供存储就业影音先锋电影，日韩av统共本色均由用户发布影音先锋电影，如发现存害或侵权本色，请点击举报。 电击 调教