24/07/13 13:37:29.34 q/C/4svJ.net
>>229
Sub tes() '文字を図形幅に合わせて変形
Selection.ShapeRange.TextEffect.PresetShape = msoTextEffectShapePlainText
Selection.ShapeRange.TextFrame2.WordArtformat = msoTextEffect1
End Sub
Sub tes2() '変形を解除
Selection.ShapeRange.TextFrame2.WordArtformat = msoTextEffect1
End Sub
マクロの記録だと変形解除のコードが文字のエフェクト?初期化しか記録されない
PresetShapeをどうにかするんだと思うけど調べてもそれらしいのが出てこないの
>>230
もしかして手動解除しかできない…？