2022-09-01から1ヶ月間の記事一覧
Option Explicit '起動済みの既存 パワーポイント スライド .Shapes から テキストを取り出す 'アクティブシートに名前とテキストをセット Sub test20220915ppスライド内シェイプ名取得() Dim ppApp As Object 'As PowerPoint.Application Set ppApp = Nothi…
ActiveChart.SeriesCollection.Count で グラフ系列の数 ActiveChart.SeriesCollection.Count よく見かける .Count でChartのSeries数がわかりそうです Option Explicit Sub bbb() Dim n As Integer Debug.Print "コレクションの数:" & ActiveChart.SeriesCo…