[[20170820214419]] 『セルをコピーし画像でペースト。名前を付けた画像』(miky) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『セルをコピーし画像でペースト。名前を付けた画像をPPTにペースト。』(miky)

以下の処理を行いたいのですが、

”指定した名前のアイテムが見つかりません”と表示されうまく動作しません。

●1 シート"テスト1"のセルA1:G10、A11:G20、A21:G30をコピー
●2 シート"テスト1"のセルAA2の位置からそれぞれ画像としてペースト
●3 ●2でペーストした画像にそれぞれ名前をつける
●4 シート"テスト2"のセルA1:G10、A11:G20、A21:G30をコピー
●5 シート"テスト2"のセルAA2の位置からそれぞれ画像としてペースト
●6 ●5でペーストした画像にそれぞれ名前をつける
●7 シート"テスト3"のセルA1:G10、A11:G20、A21:G30をコピー
●8 シート"テスト3"のセルAA2の位置からそれぞれ画像としてペースト
●9 ●8でペーストされた画像にそれぞれ名前をつける
●10 所定のフォルダ"パス名"というところに格納された、PPTのシートの2枚目から、●3,●6,●9の画像を、PPTの各シートの右半分に順番にペーストしていく。

現在、以下の初歩の初歩でとまってしまい先に進まず、、おちから添えいただけると助かります。

Sub 表を画像として貼付()

    Range("A1:G10").CopyPicture xlScreen, xlPicture 
    ActiveSheet.Paste Range("AA2") 

  For i = 1 To 10 
ActiveSheet.Shapes("図 " & i).Name = "図_" & i 
Next i 

End

< 使用 Excel:Excel2016、使用 OS:Windows10 >


他に複数のサイトに投稿してますね。こういうのをマルチポストと言います。

サイトによってはマルチポストは禁止されています。
ここは以前はマルチポストは容認されてましたが、今はマルチポスト容認の項目は削除されてますのでマルチポストは容認されてないものと思われます。
(マルチネス) 2017/08/20(日) 22:03


 Range("AA2").PasteSpecial
 Selection.Name = "あいうえお"
(BJ) 2017/08/20(日) 22:10

パワーポイントのマクロは全くわかりませんが、
そもそも、パワーポイントに直接貼り付けでよいのでは?

(マナ ) 2017/08/20(日) 22:12


マルチネスさん

コメントありがとうございます。
初利用で削除方法が不明なため、ご迷惑おかけいたします。
以降気を付けるよういたします。
(miky) 2017/08/20(日) 22:20


 マルチネスさん

 >ここは以前はマルチポストは容認されてましたが、
 >今はマルチポスト容認の項目は削除されてますので
 >マルチポストは容認されてないものと思われます。

 「ここ」とは、「エクセルの学校」のことでしょうか?

 「エクセルの学校」の「初めての方へ」を読むと
  下記の通り、初っ端で容認している旨が書かれているのですが・・?

 >(n) [マルチポストについて]
 >当サイトではマルチポスト(他の掲示板に同じ内容を書くこと)は 基本的に禁止していません

(半平太) 2017/08/20(日) 22:30


日曜の夜に、何をそんなに急いでいるのですか?
なぜそれほど多くのところに投稿するんですか?
 
マルチポストを禁止しているところもあります。
明示的に禁止していなくても、あなた自身が色々なところに対応できずに、
結局迷惑をかけることになるので、
どこか一カ所に決めて、他は閉じたらいかがですか?
 
こちらはマルチを禁止していませんし、
コメントがありましたので、
ここで議論を続けたらいいんじゃないですか?

(γ) 2017/08/20(日) 22:35


みなさん

ありがとうございます。
初心者でご迷惑おかけしました。
他サイトを閉じました。

BJさん
1シートのみですが、各セルのコピーと名前を付けるところまでできました!
ありがとうございます。
Sub 画像として貼付()

    Range("A1:G10").CopyPicture xlScreen, xlPicture
    Range("AA2").PasteSpecial
    Selection.Name = "図1"
    Range("A11:G20").CopyPicture xlScreen, xlPicture
    Range("AA2").PasteSpecial
    Selection.Name = "図2"
    Range("A21:G30").CopyPicture xlScreen, xlPicture
    Range("AA2").PasteSpecial
    Selection.Name = "図3"
End Sub 
これを1〜3の3つのシートで行いたいのですが、それぞれのシートで同じ文を作る必要があるのでしょうか?
(miky) 2017/08/20(日) 22:52

 基本的にシート指定してないので、アクティブシートが対象ですね。
 それに、Selection なんて、アクティブシートだけだから。

 単純にこのマクロを実行したいシートをアクティブにしてから、マクロを実行すればそのまま使えます。
(BJ) 2017/08/20(日) 23:20

 >「エクセルの学校」の「初めての方へ」を読むと
 >  下記の通り、初っ端で容認している旨が書かれているのですが・・?

 > >(n) [マルチポストについて]
 > >当サイトではマルチポスト(他の掲示板に同じ内容を書くこと)は 基本的に禁止していません

 私が「初めての方へ」を見た限りでは。

  >(n) [マルチポストについて]
  >当サイトではマルチポスト(他の掲示板に同じ内容を書くこと)は 基本的に禁止していません

 の部分は取り消し線で消されています。
(マルチネス) 2017/08/20(日) 23:24

BJさん

初歩的な回答にも関わらず有難うございます!

(miky) 2017/08/20(日) 23:49


取り消し線で消されてはいませんが。
(γ) 2017/08/21(月) 00:07

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.