[[20181209101432]]　『【マクロ】リンク貼り付けしたグラフのリンク先情』（あらら）　ページの最後に飛ぶ

『【マクロ】リンク貼り付けしたグラフのリンク先情報を取得したい』（あらら）

お世話になります。

エクセルのグラフをパワーポイントにリンク貼り付けしています。

エクセル側：20シートあり、各シートにグラフが一つずつ存在します。
パワポ側：20スライドあり、各スライドにグラフを一つずつリンク貼り付けします。

リンク貼り付け作業完了後に、パワポにリンク貼り付けしたグラフが
意図した場所からリンク貼り付けされているかを一覧を吐き出すことにより
確認したいです。
エクセルVBAでマクロを組み、パワポに存在する全グラフ（シェイプ）の名前を
取得するところまではできました。後はこのNAMEプロパティを
「リンク先の情報」を意味するプロパティに書きかえればいけると
思っているのですが、わからずフリーズしております。

「リンク先の情報」を意味するプロパティについて
わかる方、ご教示いただけますでしょうか。

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

パワーポイントは全くわかりませんが、これのことでしょうか。
https://docs.microsoft.com/en-us/office/vba/api/powerpoint.linkformat.sourcefullname

（マナ） 2018/12/09(日) 11:29

マナさん

回答ありがとうございます！
名前を見た感じ、まさにこのプロパティだと思われます。
自宅PCにはパワポがないので明日試してみます！

ありがとうございました！
（あらら） 2018/12/09(日) 14:43

＞エクセル側：20シートあり、各シートにグラフが一つずつ存在します。

ごめんなさい。シート名を取得したいのですよね。
でしたらSourceFullNameという名前から、違う可能性高いです。

（マナ） 2018/12/09(日) 16:56

"D:\MyDocuments\201812\myTemplate1.xlsm!Sheet1![myTemplate1.xlsm]Sheet1グラフ 1"
のような文字列を持っているようですから、
!でSplitして2番目の要素をとればシート名が得られるようです。
(こちらはOffice2010です)
（γ） 2018/12/09(日) 20:53

γさん、ご確認ありがとうございます。

パワーポイントそのものを、ほとんど使わない
なので、マクロは全くかけません。

そこで、ワードで、下記の１行を試してみたのですが

?ActiveDocument.InlineShapes(1).LinkFormat.SourceFullName
F:\Documents\エクセルQA\test20181209.xlsm

こんな感じだったので、だめかと思っちゃいましたが
なんとかなりそうとわかりよかったです。

（マナ） 2018/12/09(日) 22:14

パワーポイントで試してみました。
ActivePresentation.Slides(1).Shapes(1).SourceFullName

これだと、ワード同じ結果です。
使い方違うのでしょうか。
（マナ） 2018/12/09(日) 22:54

私はローカルウインドウで確認しただけです。
shapeオブジェクトの.LinkFormat.SourceFullNameの値がそうなっていたのですが。
質問者さんに確認して頂ければと思います。

（γ） 2018/12/10(月) 00:25

（γ）さん、マナさん、情報ありがとうございます。
結論申しますと、LinkFormat.SourceFullNameで求める形
を作ることができました。エクセルでなくパワポのマクロで作成することになりましたが

問題はありませんでした。

ありがとうございました！
（あらら） 2018/12/10(月) 13:16

コメント返信：

[ 一覧(最新更新順) ]

[[20181209101432]] 『【マクロ】リンク貼り付けしたグラフのリンク先情』（あらら） ページの最後に飛ぶ

[[20181209101432]]　『【マクロ】リンク貼り付けしたグラフのリンク先情』（あらら）　ページの最後に飛ぶ