ただし、これで取得できる画像のサイズは単位がポイントですからセンチメートルに変換しなければなりません。 これには、ApplicationオブジェクトのCentimetersToPointsメソッドを使います。 Sub Sample4 () Dim IMG As Object Set IMG = LoadPicture ("C\Samplejpg") With ActiveCellAddComment ShapeFillUserPicture "C\Samplejpg" ShapeHeight =図形の大きさを調整する Heightプロパティで図形の高さを、Widthプロパティで図形の幅を、ポイント単位で設定します。 構文 ObjectHeight 図形の高さ 設定/取得 ObjectWidth 図形の幅 設定/取得 設定項目 内容 Object Shape、ShapeRangeコレクションオブジェクト 省略不可 次のサンプル1は、アクティブシートの1つ目の図形の高さを100ポイントに設定します。 VBAで図形(オートシェイプ)の位置やサイズを変更する方法です。 図形を操作するには、Shapeオブジェクトを操作します。 作成する際に位置やサイズを指定する方法と、すでに作成済みの図形を操作する方法、全ての図形の操作等それぞれご説明します。 その他の図形の操作について
Excel Vba 複合グラフ Chart に2軸設定する方法 やさしいexcelvba
