ken3memo https://blog.hatena.ne.jp/ken3memo/ 三流君のソースコード置き場 https://ken3code.hatenablog.jp/ Option Explicit '起動済みの既存 パワーポイント スライド .Shapes から テキストを取り出す 'アクティブシートに名前とテキストをセット Sub test20220915ppスライド内シェイプ名取得() Dim ppApp As Object 'As PowerPoint.Application Set ppApp = Nothing On Error Resume Next '取得エラー時に次へ Set ppApp = GetObject(, "PowerPoint.Application") On Error GoTo 0 'エラーを元に戻す※これを忘れると、デバッ… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fken3code.hatenablog.jp%2Fentry%2F2022%2F09%2F15%2F195440" title="蛇足1.パワポのアクティブスライドからオブジェクトの名前をエクセルに落とす - 三流君のソースコード置き場" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2022-09-15 19:54:40 rich https://ken3code.hatenablog.jp/entry/2022/09/15/195440 1.0 100%