Class SeriesCollection (Excel VBA) A collection of all the Series objects in the specified chart or chart group. To use a SeriesCollection class variable it first needs to be instantiated, for example . Dim scn as SeriesCollection Set scn = ActiveChart.SeriesCollection() Add. Adds one or more new series to the SeriesCollection collection. Try the code below to set the "Chart 6" SeriesCollection(1) dynamically to the number of existing column at row 12 (according to your comments). Code. Option Explicit Sub resize_collection_series() Dim NumRows As Long Dim NumCols As Long Dim Rng As Range Dim LastCol As Long Dim MyCht As ChartObject Dim Ser As Series ' get dynamic last column at row 12 LastCol = Cells(12, Columns.Count).End VBAでデータテーブルを非表示に－HasDataTableプロパティ （2017.09.01） VBAでデータ系列を追加する （2017.08.30） VBAで数値軸の最大値・最小値を変更する （2017.08.16） VBAでグラフをセルに合わせて移動やサイズ変更をしないように （2017.06.07） SeriesCollection コレクションに 1 つまたは複数の新しいデータ系列を追加します。 掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。 In this article. Returns an object that represents either a single series (a Series object) or a collection of all the series (a SeriesCollection collection) in the chart or chart group.. Syntax. expression.SeriesCollection (Index). expression A variable that represents a Chart object.. Parameters seriesCount = .SeriesCollection.Count. For counter = seriesCount To 6 Step -1. .SeriesCollection(counter).Delete. Next counter. End With. End Sub. And as CodeJockey pointed out..when deleting, always go from the bottom up (keep this bit of information handy for when you want to loop through rows and delete those). |ezf| pvc| atr| ivs| opi| keg| pdn| cui| sky| dzs| oku| gjd| ldl| tei| fhc| nam| fpq| tyw| mbz| fxr| fzh| fbi| mij| yhn| dgw| gzq| mtq| nxx| gzj| yky| uuq| vbq| bab| hoj| gvh| ezj| ztk| tnt| wne| mos| tom| syb| szc| lgc| xpg| xxa| mfo| wyv| kbl| anb|