范冰冰黄色一级视频,美女视频黄道

用于處理圖表&圖形的VBA代碼大全6：3個有用的圖表宏

hercules028 >《VBA》

2023.06.06 四川

關(guān)注

excelperfect

前面的文章：

一些有用的圖表宏

宏1：使圖表覆蓋單元格區(qū)域

下面的代碼修改當(dāng)前圖表的位置和大小以適合覆蓋單元格區(qū)域B2:J18。

Sub FitChartToRange() Dim cht As Chart Dim rng As Range '賦值對象到變量 Set cht = ActiveChart Set rng = ActiveSheet.Range('B2:J18') '移動并調(diào)整圖表大小 cht.Parent.Left = rng.Left cht.Parent.Top = rng.Top cht.Parent.Width = rng.Width cht.Parent.Height = rng.HeightEnd Sub

宏2：將圖表導(dǎo)出為圖片

下面的代碼將當(dāng)前圖表在指定位置保存為圖表。

Sub ExportSingleChartAsImage()  Dim imagePath As String  Dim cht As Chart  imagePath = 'C:\完美Excel\myImage.png'  Set cht = ActiveChart  '導(dǎo)出圖表  cht.Export (imagePath)End Sub

宏3：將所有圖表的大小調(diào)整為與當(dāng)前圖表相同

下面的代碼調(diào)整當(dāng)前工作表中所有圖表的大小，以使得它們與當(dāng)前圖表的大小相同。

Sub ResizeAllCharts() Dim chtHeight As Long Dim chtWidth As Long '創(chuàng)建遍歷圖表對象的變量 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

本站僅提供存儲服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請點擊舉報。

打開APP，閱讀全文并永久保存查看更多類似文章

19 用VBA批量生成小餅圖

創(chuàng)建一個簡單的柱狀圖

VBA-處理圖形圖表大全剖析8

利用VBA宏代碼把Excel單元格中漢字、數(shù)字或字母混合數(shù)據(jù)中的漢字提取出來

問答009-如何快速合并相同單元格的內(nèi)容

通過高級篩選錄制宏，生成vba代碼

更多類似文章 >>

中文字幕理论片,69视频免费在线观看,亚洲成人app,国产1级毛片,刘涛最大尺度戏视频,欧美亚洲美女视频,2021韩国美女仙女屋vip视频