"DrawingTableをｸﾘｱしたい" と御質問いただきました。 直接ﾒｿｯﾄﾞは提供されていないようなので、 単純にColumnとRowの二重ループさせ、長さ0の文字を 設定すれば良いかと思います。 'vba Sub CATMain() Dim DrawDoc As DrawingDocument Set DrawDoc = CATIA.…