【VBA 2010】画像をオートシェイプに挿入

質問

Fill.UserTexturedを用いて、
テキストを持ったオートシェイプに画像を埋め込みたいのですが、
画像の大きさをオートシェイプの大きさに合わせるにはどうしたらいいでしょうか。

回答No.1

keithin

UserTexturedなどのテキスチャでは、原則として「型にはめる」機能はありません。

一応やればできる方法としては
１．一度シートに図として挿入し、原寸の縦横寸法を計測する
２．オートシェイプの縦横寸法も計測する
３．縦と横のそれぞれの方向に何倍すれば同じ大きさになるか比率を計算して
４．TextureHorizontalScaleとTextureVerticalScaleにそれぞれ代入すれば、
できます。

それよりはテキスチャとして埋めるのではなくふつーに
Fill.UserPicture
を使って画像を挿入したほうが、遥かに簡単です。