パワーポイントを、エクセルへ貼り付けたい(1つのスライド→1つのセル)
パワーポイントのデータをエクセルに貼り付けたいと思います。
ですが、そのままパワーポイントで複数のスライドを選択して、エクセルへと貼り付けると、
1つのスライドの中に改行している部分があると、それが別々のセルへ貼り付けられてしまいます。
例えば、
『1枚目のスライド』
タイトル:ひらがな
あいうえお
かきくけこ
さしすせそ
『2枚目のスライド』
タイトル:カタカナ
アイウエオ
カキクケコ
サシスセソ
という2枚のスライドがあるとします。
それぞれ、テキストボックスはタイトルを除くと1つであり、
その1つのテキストボックス内に、改行して3行が入っています。
この2つのスライドを選択してエクセルに貼り付けると、
『あいうえお』~『サシスセソ』まで、6セルになってしまいます。
別々にではなくて、
『1枚目のセル』
あいうえお
かきくけこ
さしすせそ
『2枚目のセル』
アイウエオ
カキクケコ
サシスセソ
となってほしいのですが・・
さらに、欲を言うと、『タイトル』と『テキスト』を、
隣あったセルへとコピーすることは可能でしょうか?
つまり、A1~B2に対して、
『A1』
ひらがな
『B1』
あいうえお
かきくけこ
さしすせそ
『A2』
カタカナ
『B2』
アイウエオ
カキクケコ
サシスセソ
というふうにしたいのです。
素人考えではどうにも無理っぽい気もするのですが、
プロの方など、何か特殊な方法があれば、ぜひともご教授いただけないでしょうか
わかりにくい説明ですみません。
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
同一人物?
http://detail.chiebukuro.yahoo.co.jp/qa/question …
●PowerPoint2003までの場合
《準備》
0.「ツール」 →「マクロ」 →「セキュリティー」
→セキュリティレベル「中」にチェックを入れる
→パワーポイントをいったん終了して、またすぐ起動
※マクロを動かすためです。
1.ファイルを開く
→Alt+F11キーでVisual Basic Editor 画面に
→挿入
→標準モジュール
→右の真っ白な大きいところに以下のコードをコピー&ペースト
Sub test()
Dim objExcel As Object 'Excel.Application
Dim mySht As Object 'Excel.Worksheet
Dim Sld As Slide
Dim Shp As Shape
Dim i As Long, j As Long
Set objExcel = CreateObject("Excel.Application")
With objExcel
.Visible = True
Set mySht = .Workbooks.Add.Worksheets(1)
End With
i = 1
For Each Sld In ActivePresentation.Slides
j = 1
For Each Shp In Sld.Shapes
With Shp
If .HasTextFrame Then
With .TextFrame.TextRange
If .Text <> "" Then
mySht.Cells(i, j).Value = _
Replace(.Text, vbCrLf, Chr(10))
j = j + 1
End If
End With
End If
End With
Next
i = i + 1
Next
End Sub
2. 標準画面に戻ります。
3.ツール→マクロ→マクロ
→1.のマクロ「test」を選択→実行
4. マクロを使わないときは、0.で変更したセキュリティレベルを元に戻す
●PowerPoint2007の場合
《準備》
0.左上の丸いOfficeボタン
→一番下の「PowerPointのオプション」
→セキュリティーセンター
→セキュリティーセンターの設定
→マクロの設定:すべてのマクロを有効にする
→パワーポイントをいったん終了して、またすぐ起動
※マクロを動かすためです。
1.ファイルを開く
→Alt+F11キーでVisual Basic Editor 画面に
→挿入
→標準モジュール
→右の真っ白な大きいところに上のコードをコピー&ペースト
2.標準画面に戻ります。
3.一番上の「開発」タブ
→マクロ
→1.のマクロ「test」を選択→実行
4. マクロを使わないときは、0.で変更したセキュリティレベルを元に戻す。
※ウィルス対策
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- PowerPoint(パワーポイント) you tubeにパワポで作った動画を投稿する方法 1 2023/04/09 22:56
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Excel(エクセル) エクセルからビジオのリンク貼り付け 1 2023/03/30 17:51
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 1 2023/02/27 22:21
- Visual Basic(VBA) VBA初心者です。電話番号の数字の前に0を表示させたいです。 2 2022/12/14 03:58
- Excel(エクセル) こんなことできますか?例えば、sheetに貼り付けた図形のタイトルを、セルA1の文字で表示する。 5 2022/04/22 15:25
- PowerPoint(パワーポイント) パワーポイントでの印刷時の枠の表示について 1 2022/11/03 12:18
- Visual Basic(VBA) PowerPoint VBA で画像の鮮明度を変更する方法がわかりません 2 2023/03/24 13:34
- Visual Basic(VBA) Outlook VBAについて 1 2023/07/10 12:41
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
WPSOffice_マクロの有効化について
-
Excel マクロの編集がグレーに...
-
Excelのマクロでボタンを押すと...
-
EXCEL VBA マクロ
-
エクセルの表を複数枚印刷した...
-
エクセル ボタンに設定したマク...
-
コピーしたデータを2行ずつに貼...
-
【マクロ】プリントスクリーン...
-
パソコンの買い替えとデータ移行
-
【マクロ】マクロボタンをクリ...
-
部分検索でフォルダ名を検索す...
-
(Excel VBA)シートコピー時マ...
-
複数のマクロボタンをまとめて...
-
Excelで、マクロが含まれ...
-
エクセル マクロ名にブック名...
-
エクセルマクロで、別のブック...
-
Ctrl+Zが使えない
-
Excelマクロで、稼働中のマクロ...
-
エクセル行の非表示のしかた。 ...
-
word2019で原稿用紙換算枚数の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel マクロの編集がグレーに...
-
WPSOffice_マクロの有効化について
-
Excelのマクロでボタンを押すと...
-
エクセル ボタンに設定したマク...
-
エクセルで、「いいね」のよう...
-
エクセルの表を複数枚印刷した...
-
エクセル マクロ名にブック名...
-
エクセルの、記録を終了したマ...
-
複数のマクロボタンをまとめて...
-
VBAについての質問です
-
エクセルマクロで、別のブック...
-
別シートのマクロボタンをマク...
-
Excelマクロで、稼働中のマクロ...
-
エクセルでマクロ(Excel 4.0)...
-
マクロをマクロを使ってコピー...
-
(Excel VBA)シートコピー時マ...
-
Excel:マクロを消す方法教えて...
-
LDPlayerのマクロの編集方法を...
-
EXCELのマクロが他のパソコンで...
-
なぜマクロの記録がなくなって...
おすすめ情報