Excel VBA 質問スレ Part51

Excel VBA 質問スレ Part51 at TECH

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

150:デフォルトの名無しさん 
 17/11/19 21:27:01.10 aexN4+ic0.net
>>144 
エクセルと勝手が違うんじゃなくて、ただただ猛烈に使いにくいだけ 
で、上手く行ったので質問は終了ってこと？

151:デフォルトの名無しさん 
 17/11/19 21:31:31.01 eK6D85VJ0.net
>>145　とりあえずは。　また多分色々とお伺いすることになると思いますが、 
なにとぞよろしくお願いいたします。

152:デフォルトの名無しさん 
 17/11/19 22:32:44.41 Z3cAV0my0.net
wordはスレ違いだけどな 
あんまりvbaと親和性もないし 
あくまで文書ツールだからな

153:デフォルトの名無しさん 
 17/11/19 22:50:31.56 1/mWyqVE0.net
おいおいExcelかてただの文書ツールやぞｗ

154:デフォルトの名無しさん 
 17/11/19 22:56:21.06 aexN4+ic0.net
>>148 
釣りはほどほどに

155:デフォルトの名無しさん 
 17/11/19 23:23:51.19 lBNHVI9l0.net
文書ツールとしてExcel使う奴はたくさんいるけど w

156:デフォルトの名無しさん 
 17/11/20 08:54:30.90 6BLE5ZLY0.net
>>146 
まず君が貼り付けたのは何かを考えよう。 
マクロ記録が示すコードを見ればInlineShapeだろう。 
InlineShapeを調べれば文字列の中の位置を指定した図形ということらしい。 
要は10文字目に挿入とかさ。 
InlineShapeにはWrapFormatプロパティは無い。 
文字列の折り返しを背景にするというのは回り込み等を自動でやるわけでその結果文字が動くだろ。 
それじゃ位置を指定したことにならない。 
だから出来ない。 
それじゃあどうするかというと、InlineShapeをShapeに変換するというのが1つ。 
InlineShapeにはConvertToShapeというのがあるから、それをShapeで受けてやればShapeにはWrapFormatプロパティがある。 
Dim iShp As InlineShape 
Dim Shp As Shape 
Set iShp=Document("hoge.doc").Characters(10).InlineShapes.AddPicture("C:¥fuga.jpg") 
Set Shp=iShp.ConvertToShape 
Shp.WrapText.Type=wdWrapThrough 
しかしそもそも最初からInlineShapeじゃなくてShapeを貼り付ければ問題にならない。 
Set shp=Documents("hoge.doc").Shapes.AddPicture("C:¥fuga.jpg") 
shp.WrapText.Type wdWrapThrough 
Shapeは位置を指定出来ないといっても何文字目という意味で指定出来ないだけで、Left、Top、Width、Heightでの位置指定はできる。 
今回の問題もSelectionだったな。 
何のオブジェクトを触ってるのかはっきりさせずに組んでるからエラーの意味も分からない。

次ページ