|
▼tomo さん:
>▼ウッシ さん:
>>こんにちは
>>
>>その処理の前後のコードでエラー時の処理をきちんと入れてみて下さい。
>>
>On Error ステートメントを利用するわけですね。
>挑戦してみます。
>ありがとうございました。
度々,申し訳ありません。再度,教えてください。
下記のようにOn Errorステートメントを利用してエラーを無効にすることはできたのですが,なぜか,TEXT_LEFT 及び TEXT_TOP で所得した位置に貼り付けことができません。(移動前のデフォルトの位置である左上のままです)
On Errorステートメントの使い方がだめなのでしょうか?
それとも別の原因なのでしょうか?
With objWord.Selection
.ParagraphFormat.Alignment = wdAlignParagraphLeft
With .Font
.Size = 12
.Name = "MS ゴシック"
End With
.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, _
Placement:=wdFloatOverText, DisplayAsIcon:=False
.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionMargin
.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionMargin
.ShapeRange.ScaleWidth TEXT_SIZE, True
'TEXT_SIZEはセルから取得しています。
.ShapeRange.ScaleHeight TEXT_SIZE, True
On Error Resume Next
If TEXT_LEFT <> "" Then
.ShapeRange.Left = MillimetersToPoints(TEXT_LEFT)
'TEXT_LEFTもセルから取得しています。
.ShapeRange.Top = MillimetersToPoints(TEXT_TOP)
'TEXT_TOPもセルから取得しています。
End If
On Error Goto 0
.MoveLeft
End With
よろしくお願いします。
|
|