Excel VBA 質問スレ Part58

**デフォルトの名無しさん** · 2018/11/19(月) 06:47:24.99

ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK

※前スレ
Excel VBA 質問スレ Part57
https://mevius.5ch.net/test/read.cgi/tech/1536583359/

**デフォルトの名無しさん** · 2018/11/19(月) 09:52:02.94

>>1乙

**デフォルトの名無しさん** · 2018/11/20(火) 22:35:35.36

Dim Otimpo As Variant
Set Otimpo = New Penis
Otimpo.Insert Woman.Vagina

**デフォルトの名無しさん** · 2018/11/20(火) 22:46:03.40

俺だったらInsertToメソッドにする

**デフォルトの名無しさん** · 2018/11/22(木) 09:37:41.30

>>1
=LEFT("おつかれあかたあまや",4)

**デフォルトの名無しさん** · 2018/11/22(木) 09:49:09.43

昭和の臭いプンプン

**デフォルトの名無しさん** · 2018/11/22(木) 11:44:50.42

昭和なら $ 付けるだろ

**デフォルトの名無しさん** · 2018/11/23(金) 09:01:48.81

ややExcelと離れるのですが、他に適切な場所が見当たらないのでこちらで質問。

WordやPowerpointに、埋め込み、またはリンクで表示されているExcelの表やグラフについて、
1:ファイル名(フルパス、ないし相対パス)
2:表示されているシート名(またはシート番号)
3:表示されている表の範囲(A1からB20まで、みたいな)
を、WordやPowerpointで動かすVBAから列挙する、みたいなのを作りたいと考えてます。

(1)についてはある程度(たまに取れないのがある)なんとかなるのですが、
(2)と(3)の手段が分からないでいます。
この辺を得る手段について、ご存じの方いましたら教えてください。

**デフォルトの名無しさん** · 2018/11/23(金) 10:13:26.49

表示されているシート名って要は現在アクティブなシートってことでしょ？
ActiveSheet.Nameで取れるんじゃ？

**デフォルトの名無しさん** · 2018/11/23(金) 11:15:52.26

>>8
やったことがないから保証できないが、
OLEObject.ObjectプロパティからOLEオブジェクトのコントロールを取得できるはず
ここからExcelのオブジェクトモデル経由でシート名等は取れるかも

8 · 2018/11/23(金) 11:27:11.08

>>9,10

　そういえば、シート名はそれで取れますね。うっかりしてました。
ただ、Powerpointで表示されている、シート上の範囲( >>8 の(3) )がマジわからん。
ActiveSheetまでは到達出来るので、シート全体のデータは取れるのだけども、
表示範囲となるとどこを見れば良いのやら……

**デフォルトの名無しさん** · 2018/11/23(金) 16:52:45.93

表示範囲っての意味がよく判らない。使用されている範囲ならUsedRangeプロパティだけどそうじゃない？