王の言葉バッチは、画像のサイズを変更します
サブバッチ画像サイズ() 薄暗いイシャーとしてInlineShape 各イシャーでActiveDocument.InlineShapes用 iSha.Type = wdInlineShapePicture場合、 「ISha.LockAspectRatio = msoFalse」ロックされていないアスペクト比 iSha.LockAspectRatio = msoTrue「ロック縦横比 iSha.Width = CentimetersToPoints(30)「宽CM 'iSha.Height = CentimetersToPoints(21)' 高CM END IF 次 End Subの