Excel VBA 質問スレ Part51

2017/11/08(水) 11:26:30.13

スレ立ての際は一行目に
!extend:checked:vvvvv:1000:512
と入れてスレ立てして下さい

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

※関連スレ
VBAなんでも質問スレ Part2
http://mevius.2ch.net/test/read.cgi/tech/1432173164/
Access VBA 質問スレ Part1
http://mevius.2ch.net/test/read.cgi/tech/1328536426/
Excel総合相談所 126
https://mevius.2ch.net/test/read.cgi/bsoft/1496487719/

※前スレ
Excel VBA 質問スレ Part50
http://mevius.2ch.net/test/read.cgi/tech/

VIPQ2_EXTDAT: checked:vvvvv:1000:512:----: EXT was configured 👀
Rock54: Caution(BBR-MD5:0be15ced7fbdb9fdb4d0ce1929c1b82f)

2017/11/11(土) 09:03:00.19

>>26
こちらのサンプルでとりあえず動きましたお騒がせしました
Dim FSO As Variant, SHell As Variant, Folder As Variant
Set FSO = CreateObject("Scripting.FileSystemObject")
Set SHell = CreateObject("Shell.Application")
Set Folder = SHell.Namespace(FSO.GetFile(Songs(1)).ParentFolder.Path)
Cells(1, 1) = Folder.GetDetailsOf(Folder.ParseName(Target), 0)

2017/11/11(土) 12:39:17.23

エクセル２０１３を使用しています。
今、日付を手入力しているのですが、何かで見たのですが
カレンダーから選択して入力できる機能があるのですがエクセルでもできる方法ないでしょうか？
いろいろさがした所アクセスはできるのですがエクセルは標準でもなく
カレンダーコントールなるものあるみたいですが、アクセスもインストールしていないので
VBAマクロの中にもありません

2017/11/11(土) 14:37:40.42

>>14
両方同時にではない。
Worksheetを変数に入れたということはブック情報も込みで入ってる。
だから便利なの。

Aブックのαシートを変数に入れてもその変数でBブックのαシートにアクセスできるわけじゃない。
君のBn.T式のやり方だとBブックのαシートにもアクセスできることになる。
それはBn.Worksheets(T)式と変わらない。
一方、もしBブックのαシートにアクセス出来ないのならBn.T式の意味が無い。
T式で良いわけだから。

2017/11/11(土) 15:59:40.18

>>27
動くのは結構なことだけどFSO無くてもファイル情報取れるよ。
他の部分で便利にFSO使ってるなら良いんだけどその部分だけ見たら無駄だよね。

Dim objShell As Object
Dim objFolder As Object
Dim objFItm As Object
Set objShell=CreateObject("Shell.Application")
Set objFolder=objShell.Namespace("C:¥Users¥Hoge¥Desktop")
Set objFItm=objFolder.ParseName("fuga.txt")
Debug.Print objFolder.GetDetailsOf(objFItm,3)

参照設定とか書いてるけど、それぞれの意味分かってる?
CreateObjectってのは、その場で名前を元にオブジェクトを作成する。
だからコード書いてる間にはどんなメソッドやプロパティがあるか分からないからインテリセンスでの候補が出ることもない。
参照設定は使うオブジェクトを事前に指定することでオブジェクトの型とかメソッド、プロパティにアクセス(インテリセンス等)しやすくするためのもので、CreateObject使ったり、オブジェクトの型をObjectにしてるんだったら意味がない。
CreateObjectで生成出来ないのも有るし参照設定のがある意味上位互換だけど人にコードを提示する場合は参照設定するよう指示も書かなくちゃなんないからCreateObjectでの例が多いんだけどさ。
もちろん、参照設定したら動くようになるなんてことも無い。

Dim objShell As Shell
Dim objFolder As Folder
Dim objFItm As FolderItem
Set objShell=New Shell
Set objFolder=objShell.Namespace("C:¥Users¥Hoge¥Desktop")
Set objFItm=objFolder.ParseName("fuga.txt")
Debug.Print objFolder.GetDetailsOf(objFItm,3)

2017/11/11(土) 16:02:23.93

参照設定は極力しないほうが良いよね
参照設定を忘れてドハマリすることがたまによくある

2017/11/11(土) 16:04:50.69

>>28
エクセルでも出来るんだけど非常に上級者向けなんです。
上級者でも自分で1から組めない人が多いんじゃないかと思う。

上級者って何?、お前の勝手な分類だろって言われればそうなんだけど。

2017/11/11(土) 17:24:06.37

>>28
エクセルアドインカレンダー
で検索すれば色々見つかるよ
使いやすいもの選べばよろし

2017/11/12(日) 05:18:36.72

>>28
UserForm使えば簡単に自作できますよ。
年と月用のテキストボックスをつけて、年と月それぞれ増減させるために、スピンドルボタンをつける。
日付表示用のラベルを必要数用意。
年と月のテキストボックスの値に応じて、ラベルの表示を変更。
ラベルのクリックイベントで、年と月のテキストボックスとラベルのテキストを連結して、日付に変換。

ラベルのクリックイベントは、クラスでまとめれば、クリックイベントをたくさん書く必要もありません。

2017/11/12(日) 06:52:57.92

スピンボタンな

2017/11/12(日) 11:00:33.46

コードっていろんなパターンあってたくさん書いてると思うんだけど、コードの保管ってメモ帳？？

2017/11/12(日) 11:17:54.47

>>36
エクスポートできるよ
gitとかsubversionとか使えばいい

2017/11/12(日) 11:23:55.96

連投すまんが、セルを方眼紙にして、フォームの中に直線コマンド、円コマンド、角コマンド等CADみたいなそれぞれ押したらそれが、反映されて作画って出来る？

2017/11/12(日) 11:28:28.89

>>38
できるかできないかで言うと出来る

各図形の位置に当るセルの背景色を変えれば良いだけ

2017/11/12(日) 12:15:44.63

>>36
ブログ作ってそこによく使うコードを置いてある
いつでもどこでも検索すれば出てくるので非常に便利

2017/11/12(日) 12:16:32.95

>>38
できるけどかなりめんどくさい
cacooとか既存サービス使った方が良いと思う

2017/11/12(日) 17:01:38.36

>>34
簡単じゃないだろw
しちめんどくせーよ

2017/11/12(日) 17:02:12.03

>>36
モジュールをそのまま保存できるだろ

2017/11/12(日) 18:22:11.84

>>42
他に手軽な方法がないからUserFormで作れるようにしておくのが一番いいぞ。

2017/11/12(日) 18:36:30.88

>>44
まあそれしかないのはそうなんだけどさ

2017/11/12(日) 20:02:01.58

vbのランタイムをインストールすればDateTimePicker使えるけど、Formでカレンダー自作しておけば簡単に使い回したり配布出来るから一個作っておくといいと思いますよ。

2017/11/12(日) 22:30:08.29

フォルダ1
┗XXX29年10月.xlsx
　XXX29年11月.xlsx
　YYY29年10月.xlsx
　YYY29年11月.xlsx
フォルダ2
フォルダN

フォルダ1内に今月のファイルがあったらコピーして名前を翌月に変更して保存
これをフォルダNまで同じように処理する方法教えてください

年月の取得はユーザーフォームが理想ですが全く分らんので
マクロ実行用ファイルのA1に年、A2に月入力して取得する感じを考えてます

2017/11/12(日) 23:03:42.29

>>47
今月のファイルを探したいならDate関数使えば今日の日付が出るからそっからformatなりyearとmonthくみあわせるなりで取得すればいいからわざわざ入力させる必要がないね
フォルダないのファイル名の取得ならググればいくらでも出てくるぞ
俺はfilesystemobjectを使うけど

2017/11/12(日) 23:12:47.43

>>47
まずは最初の部分だけ

今年 = Format(Now, "e")
今月 = Month(Now)
来月 = DateAdd("m", 1, Now)
年 = Format(来月, "e")
月 = Month(来月)

2017/11/12(日) 23:16:31.66

変数に残す必要なかった
今月 = Format(Now, "ee年mm月")
来月 = Format(DateAdd("m", 1, Now), "ee年mm月")

2017/11/13(月) 00:50:26.46

どうしてもカレンダー欲しいんだったらSysDateTimePick32使って頑張るだろうな。
面倒くさいけど他のコントロールもMSFormsを使わないウィンドウ作成もやったことある。
きちんとプロパティ作るの面倒くさいから使いたいものしか実装してないけど。

2017/11/13(月) 00:58:21.51

>>48
ファイル名取得にfilesystemobjectは激重だった気がする。
Dir関数で頑張る方がよっぽど速い。

これが原因でfilesystemobjectは使わなくなってしまった。
他では速いものもあるのに食わず嫌いになった。

2017/11/13(月) 01:02:34.35

>>52
処理対象のファイルのロングパスがDirの引数の字数制限を越えてるときはどうするの？

2017/11/13(月) 06:21:29.66

そもそも劇重なんて思ったことないが...

2017/11/13(月) 08:01:19.66

なんか別のものと勘違いしてるんじゃないか

2017/11/13(月) 08:26:57.35

たかがファイル名を取得するのに処理負荷を感じるほど重くなるとか考えられないな。
読み取り先が等速ドライブに突っ込んだCDだったとか、回線の細いNASだったとかなら分かるけど。

2017/11/13(月) 09:22:13.43

>>52
クラスにして使いやすくしてるならDir関数でもいいと思うけど生で使う気は更々起きねーなあれは
めんどくさすぎる
早い遅いは環境次第だろう
何をしようとしたか知らんが

2017/11/13(月) 12:42:29.30

またVBAでクラス語る奴が来ちゃったよ...

2017/11/13(月) 12:44:49.20

なんかWindows10でマクロの挙動が安定しなくなったんだけど、そういうのある？

2017/11/13(月) 13:17:08.13

>>58
語ってるつもりはないし、普通に機能としてあるのに使ってバカにされる筋合いもない

2017/11/13(月) 13:21:12.07

vbaでクラス使うメリットあるの？
一応あるインターフェースは使い物にならないし、継承も使えないし、コンストラクタに引数も設定出来ない。
vbaでクラス使うメリット教えて

2017/11/13(月) 13:21:56.90

>>61
カプセル化

2017/11/13(月) 13:43:14.72

>>61
たまにある
単体の処理してる間だけじゃなく、しばらくの間は状態を持っててほしいとき
ごく素朴な使い方しか出来ないし、しようとも思わないけど

2017/11/13(月) 13:48:11.54

というか、クラスを使うデメリットって逆に何

2017/11/13(月) 13:52:55.00

そもそもクラスが必要になるほど大規模なコードを書く用途にVBAは向いてない、使うべきじゃない

ちゃんとした開発環境を使え
会社が許可しないなら転職するか我慢するかの二択、あるいは出世して自分で規則を変えろ
仕事の能率がアップして利益が増えるんなら反対する理由はないだろ

2017/11/13(月) 15:44:46.11

自分の好きなコードが書けないから転職とかww

2017/11/13(月) 15:54:24.73

不合理なことを押し付けてくる会社なら、転職も選択肢ってことだろ。日本語ﾀﾞｲｼﾞｮﾌﾞ？

2017/11/13(月) 16:07:38.26

クラスを使うとシンプルに表現出来る場合がある。規模の問題では無い。
普通に使ってるとなかなか活用するイメージが湧かないけど、覚えておくと役に立つよ。

2017/11/13(月) 17:08:14.63

ここでも前に書いたけど、配列のラッパークラスとか、一度作ると便利よ
コレクションだと微妙に取り回し悪かったりするからね
これ以上はスレチかな

2017/11/13(月) 17:09:30.17

>>68
そうだよね

ただ、いちいちクラスモジュールを追加しなきゃならないから、使い捨てクラスをほいほい定義しづらい

2017/11/13(月) 17:20:46.73

FileSystemObjectのファイル一覧取得が遅いのなんて結構有名な話だと思うんだが。
ハードディスクにあるファイル名全部取ってくるとかすれば分かる。

昔、どっかに比較してる所が有ったんだが見つからないな。
Win32APIが一番速かったがDirでもそんなに大きな違いは出なかった。
が、FileSystemObjectは糞遅い結果になってた。
そもそも自分で組んだら遅くてネットで調べたらやっぱり遅かったという。

2017/11/13(月) 17:23:43.47

クラスは凄く便利だが、無理に使う必要は無いと思う。
個人的には仕様を考えた段階でクラス使うのがぴったりと感覚で分かる。
そういう時以外は使わない。

2017/11/13(月) 17:47:02.85

>>71
そうなんか
まあ、今んとこそんな大量のファイルのやり取りしたことないから体感したことなかったわ
まあ、その辺使うにしても生で扱うよりクラスでまとめちゃった方が取り回し良さそうだがね
その辺は好みなんだろうけどね

2017/11/13(月) 18:55:14.32

>>64
まともな言語ならクラスを使うデメリットはないけどVBAのクラスは制限が多すぎて使う意味がない

2017/11/13(月) 19:08:08.64

>>59
bit数の関係で安定しなくなったことはある

>>61
多分、ない
class使ったほうが見通しがよくなる場合はあるけど、
正直そんなに変わらんというか、めんどくさくなるだけの場合が多い気がする

2017/11/13(月) 21:36:08.79

この流れで突然クソみたいな質問するの恐縮なのですが…
共有で使っているExcelのデータの行がランダムに大量に消える現象が起きてます
多分誰かがオートフィルタかけた状態でうっかり削除したんだと思うんですが、
消えた行に全く共通点が無いので「マクロにウイルスが付いたんだ！マクロやめろ！」って因縁付けられています

まずVBAにウイルスを仕込むならともかく、VBAを使用しているせいでウイルスに感染するって無いですよね？
あとこのコードに行を消すような要素があるか見てもらいたいです
オートフィルタをかけるだけの簡単なコードなんで無いと思うんですが周りに誰も聞ける人が居ないので一応…
簡単な指示だけどすごく頻繁に使うので消したくないんです

Sub filter1()
Range("K2").AutoFilter Field:=9, Criteria1:="<>"
Range("L2").AutoFilter Field:=10, Criteria1:=""
Range("O2").AutoFilter Field:=13, Criteria1:="AA"
End Sub

Sub filter2()
Range("K2").AutoFilter Field:=9, Criteria1:="<>"
Range("L2").AutoFilter Field:=10, Criteria1:=""
Range("O2").AutoFilter Field:=13, Criteria1:=""
End Sub

Sub filter3()
If ActiveSheet.FilterMode = True Then
ActiveSheet.ShowAllData
End If
End Sub

2017/11/13(月) 21:42:36.96

シート保護かけてみるとか

2017/11/13(月) 21:45:59.98

>>76
ウィルスに感染していて、セキュリティをsageているためにウィルスが実行されているというパターンなら考えられるが
其れ以前の問題として
・オートフィルタをかける
・全体をコピー
・ペースト（値として貼り付けなど）
で行が減っている可能性のほうが高いと思う
この仕様
、意外と知られていないんじゃないかなぁ

2017/11/13(月) 22:24:58.44

>>78
それって別のシートやブックに貼り付けるときに可視セルだけ貼り付けられているという意味ですか？
別のブックやシートにコピーする事は無いと思うので可能性としては低い気がします…
試しにオートフィルタしながら同じシートに貼り付けようとしたら「コピー領域と貼り付け領域が違うため貼付できません」となりました

2017/11/13(月) 22:25:14.14

>>76
まあ、自作マクロでウィルスどうこうはあり得ないわ
コード見る限りでも、フィルターかけてるだけで値の操作はしてないしな
まあ、フィルターかけっぱなしにならないようにブッククローズ時にフィルター解除すれば？

2017/11/13(月) 22:28:52.42

>>79
＞それって別のシートやブックに貼り付けるときに可視セルだけ貼り付けられているという意味ですか？
そう
＞別のブックやシートにコピーする事は無いと思うので可能性としては低い気がします…
そか

オートフィルタならまずこれかなーと思ったけど、コピーペーストしてないなら違うかな

2017/11/13(月) 22:30:45.38

フィルターで謎のデータ消失なら質問者の疑念通りフィルターかけたまんま範囲削除じゃねーかな

2017/11/13(月) 22:32:36.92

実際のコード上げたほうがいいかもねぇ

2017/11/13(月) 22:46:30.32

ありがとうございます
コードがおかしいわけじゃないなら良かったです
一応ここに貼ったコードはAAの部分に別の単語が入ってるだけで他は全て実際に使っているものと同じです
クローズ時にフィルター解除するようにはしてなかったのでやってみます

2017/11/14(火) 09:16:46.87

インターネットが壊れた！みたいなのはやめてください！

2017/11/14(火) 09:53:14.55

エクセルの特定の行だけ消すウイルスとか笑えるわ
まあ、バグ満載のマクロとかある意味ウイルスだけど

2017/11/14(火) 11:29:31.52

ウィルスは簡単に作れるだろ。
リテラシー無い奴が増えたからウィルスとは何ぞ?という議論が必要かも知れんが。
ただ、ExcelよりはAccessとかのが簡単だから大丈夫なんか?と思ったことあるけど。

Application.VBE系のコードが動くようになってれば感染させるのは簡単。
通常、Excelではセキュリティ設定で動かないようにはなってる。
Accessには設定が無い。
WordやPowerPointはどうだったかな。

Application.VBE系ってのはコード書いてるエディタを弄るものでVBAでコードを追加出来る。
つまり自分自身のコードをHDD上の不特定なxlsファイル開いて追加すれば自己増殖出来るし、Auto_Open辺りを追加して次回誰かが開いた時に勝手に実行させることも出来る。
ついでにそのxlsファイルをメールに添付して、アドレス帳の適当な所に送ることも出来る。

少し書ける奴なら分かってるだろうからApplication.VBE系は動かない設定になってるだろう。
Application.VBE系は便利でGithubにアップしたり、VBAのバックアックしたり、コード取得してWinmergeに与えて比較したり色々利用してたけどVB.netのCOMアドインに移行中。

2017/11/14(火) 11:36:59.15

隙あらば自分語り

2017/11/14(火) 12:24:48.16

長文はスルーで

2017/11/14(火) 12:38:00.31

コンピュータウィルスって「操作している人間の意に沿わない動きをするプログラム」だったと思ったんだけど、
いつの間にか定義が変わったのか。

CDトレー開いたりマウスをランダムに動かすジョーク系もウィルスだったはずだから>>76のもウィルスと言っていいと思ったんだが。

2017/11/14(火) 12:42:08.62

>>90
その定義だと世の中のあらゆるソフトはウイルスになるんじゃね

バグはあるからな
AndroidやiOSもウイルスになる

2017/11/14(火) 13:07:49.89

>>90
その定義だとワームやトロイの木馬とウィルスが区別できないわけだが
いくら今だとより広義に使われるとはいえ
>>いつの間にか定義が変わったのか
はそのままお前に返してやるよ

2017/11/14(火) 13:09:39.12

>>91
バグは確か「論理的に正しくない結果をもたらす何か」みたいな定義だったと思う。
マシン内に虫が侵入して電気的にショートするのが語源だしね。

同じ定義で使い続けるとバグとウィルスがあやふやになるというのは時代の流れだなぁ。

2017/11/14(火) 13:16:31.95

>>92
ワームもトロイの木馬も、元々はコンピュータウィルスを感染させるテクニックというか、
媒介手順だったはずがいつの間にか独立してウィルスの親戚みたいな扱いになってるよなぁ。

2017/11/14(火) 14:03:33.75

>>94
もともと、「感染」しないものはウィルスじゃない
いつのまにか独立したんじゃなくて、初めからちゃんと別物でちゃんと区別されていたんだが
いつのまにかまとめてウィルスと呼ばれるようになったんだ
今じゃマルウェア全般が広義にウィルスって言われる始末

バグは語源は諸説あるが、作成者の意図にそわない動作
ウィルスは作成者の意図にそった動作するプログラム
いくらなんでもそれを混同しないでくれ

2017/11/14(火) 17:57:06.04

>>95
だからトロイの木馬もワームも単体ではウィルスじゃなかったんだよ。
言うなればコンテナみたいなものなんで、トロイの木馬型のパッチプログラムとかも可能だし。

たぶん想像している「定義づけられた時期」が違うせいで食い違ってるだけだな。

2017/11/14(火) 17:58:22.04

もうやめよう

2017/11/15(水) 10:46:14.78

>>96
???
自己増殖しなきゃウィルスじゃない。
トロイもワームもウィルスじゃねーだろ。

2017/11/15(水) 12:15:18.42

プログラミングによる業務自動化絶対阻止マンがいて、ウィルスだろうがワームだろうが
題目はなんでもいいから邪魔しようとしている

という妄想をした...
...疲れているようだ

2017/11/15(水) 12:24:36.36

vbaが駄目なら関数でやればいいじゃない

2017/11/15(水) 12:41:18.42

いや、だからApplication.VBE系の実行を拒否する設定にしておけばOK。
普通はそうなってる。
マイクロソフトも散々懲りたということだろう。

Accessはそうなってないから危険だけど、どっちにしろアンチウィルスソフト入れたり、それなりに敏感ならまあ大丈夫だろう。
メールに添付されたファイルを何も考えずに開くようなバカのいる所はそもそもコンピュ－タ使うなって話。

2017/11/15(水) 15:25:25.16

Excel2010からExcel2013にしたら「ライブラリが見つかりません」というが発生しました。
他のPCで作成したExcelファイルを開こうとしたら上記のようなエラーが発生したのです。
Excel2010の時も参照設定は参照不可になっておりましたがExcelに記載されているデータを
参照するだけでVBSは動かさないのでExcel2010ではエラーになりませんでしたが、Excel2013
ではファイルを開いた際に「ライブラリが見つかりません」というエラーになります。
これはExcelに開いた際に参照設定のチェックをしないみたいな設定があるのでしょうか？

2017/11/15(水) 17:08:22.00

>>102
説明がひどいなw

2017/11/15(水) 20:25:36.13

vbeのツールのライブラリファイルって実体はなになんですか？参照不可になったりしますが
オブジェクトエクスプローラのライブラリともちがうし

2017/11/15(水) 21:27:06.93

>>102
VBSとオブジェクトライブラリに何の関係があるんだ？

2017/11/15(水) 23:13:12.29

メモリリークはVBAでどう対処すればいい？
巨大なファイルクローズ後にまるまんまリークするのですが

2017/11/15(水) 23:18:44.71

巨大なファイルは
・作らない
・分割する
・変換する
・開かずに読み取る
・csvならテキストとして読み込む
この辺

メモリリークはある意味どうしようもないので前提からどうにかしないと解決しない

2017/11/15(水) 23:25:33.43

>>107
ありがとう。思い当たるのもあります。
・開かずに読み取る
　これ、できるんですね。調べてみます

2017/11/16(木) 02:14:21.20

俺なら読み取り専用で一部だけ読んで閉じる

2017/11/16(木) 12:25:39.51

>>106
それはメモリリークではないので気にする必要はありません

2017/11/17(金) 11:56:05.53

巨大なファイルをSSDのHDDに移すと速いんじゃね

2017/11/17(金) 11:57:22.13

HDDってかいたけどHDDじゃないけどな

**デフォルトの名無しさん** (ｽﾌｯ Sd22-2nK2) · 2017/11/17(金) 12:27:16.57

SSDのHHDのFFD

2017/11/17(金) 17:41:51.06

VBAで原価計算してる人いる？

**デフォルトの名無しさん** (JP 0Hcd-59Nk) · 2017/11/17(金) 20:16:29.56

Dir関数で末尾$のフォルダを確認するとエラーになる。
（配下のフォルダはエラーにならない）
これ、どんな理由でしょうか？

2017/11/18(土) 00:56:48.74

>>115
なぜエラーの内容を書かないのか

軽く試した範囲ではエラーにならないな
環境とエラー内容と、実際にエラーになるコード晒せ

**デフォルトの名無しさん** (JP 0Hcd-59Nk) · 2017/11/18(土) 12:07:28.26

>>116
ですよね。すんません。
'Case NG
?Dir("¥¥Svr¥Share$", vbDirectory)

'Case OK
?Dir("¥¥Svr¥Share$¥Sub", vbDirectory)

アクセス権は親フォルダから継承していますので双方UNCアクセス可能な状態です。Domain Admins権限で実行しています。
GetAttrの戻りは双方 16 です。
共有名に$をつけない場合は発生しないように見受けられます、、、
と、思ったのですが、$の有無ではなくて、共有フォルダ自体を指定すると発生するようです。
エラーは、52: ファイル名または番号が不正です。となります。

ご教示お願いします。

**デフォルトの名無しさん** (JP 0Hcd-59Nk) · 2017/11/18(土) 12:11:55.49

>>116
環境は、
2008Server
Win7Pro/Excel 2010@vmware 5.4.0
です。

**デフォルトの名無しさん** (JP 0Hcd-59Nk) · 2017/11/18(土) 13:20:32.42

>>116
末尾を"¥"で終わらせるとエラーにならないことがわかりました。でも戻りが "." になります。わからなくもないですが "Share$" を期待していたので、、
どう解釈すればいいのでしょうか。
（Dir を使う際は末尾 "¥" を励行したほうがいい？）

2017/11/18(土) 17:21:41.22

UNCパスでそこは共有名であってフォルダ名じゃない気がするが

2017/11/18(土) 17:56:31.65

すいません　wordのVBAです。画像貼りつけて文字列の折り返しを背景にするのに下記では2行目で
描画の対象とならないオブジェクトが選ばれているためにtypeメソッドまたはプロパティは使用できません。
となりますが、どうしたらよいですか？

Selection.InlineShapes.AddPicture FileName:="a.jpg", SaveWithDocument:=True
Selection..ShapeRange.WrapFormat.Type=wdWrapBehind

**デフォルトの名無しさん** (JP 0Hcd-59Nk) · 2017/11/18(土) 19:38:08.85

>>120
なんかややこしいですね。
共有名に "¥" をつけて初めて共有フォルダのルートフォルダとして認識される、と覚えておくことにします。

**デフォルトの名無しさん** (JP 0Hcd-59Nk) · 2017/11/18(土) 22:21:46.28

立て続けにすんません。
onAction の引数について、全角英数記号が半角に解釈されて実行されてしまうのは既知の仕様でしょうか？
ひらがなカタカナは被害を受けないようです。
CommandBars.ActiveControl.Caption
CommandBars.ActiveControl.OnAction
あたりで変換前の文字列を救出できるようですが、、根本的対応はないのでしょうか。
上記で躓いてしまい、公式で情報をみつけられなかったもので、、

2017/11/19(日) 10:05:19.39

>>121
まずさ、Selection使うの辞めようぜ。
Hoge.Select
Selection.Fuga
という形が有ったらたいてい
Hoge.Fuga
という形にできる。

つまりね、大抵は選ぶ必要がない。
ある程度書ける人は選ぶ処理をいかに無くすかを考える。
そうすればApplication.ScreenUpdating=False使っても
速度が変わらなくなる。
ちらつき防止のために使うのが有用なのは変わらないんだけど。
.Selectを使うのはユーザーに明示的に場所を示す場合と、
本当にどうしようもない場合がごくまれにあるだけだ。

オブジェクトブラウザでShapeRangeとかWrapFormatを
調べてそこに何が(型)期待されてるかを調べる。
後は合わせれば良いだけだ。

2017/11/19(日) 10:10:14.58

>>123
"OnAction" "全角"でググると結構出てくるね。
コメント以外で日本語使うこと無いから遭遇する事無かったわ。

2017/11/19(日) 11:46:20.87

>>124
＞.Selectを使うのはユーザーに明示的に場所を示す場合と、

「ユーザーが明示的に選択したオブジェクトを処理する場合」も追加願います