| |
▼tomo さん：
>▼ウッシ さん：
>>こんにちは
>>
>>その処理の前後のコードでエラー時の処理をきちんと入れてみて下さい。
>>
>On Error ステートメントを利用するわけですね。
>挑戦してみます。
>ありがとうございました。
度々，申し訳ありません。再度，教えてください。
下記のようにOn Errorステートメントを利用してエラーを無効にすることはできたのですが，なぜか，TEXT_LEFT 及び TEXT_TOP で所得した位置に貼り付けことができません。（移動前のデフォルトの位置である左上のままです）
On Errorステートメントの使い方がだめなのでしょうか？
それとも別の原因なのでしょうか？
With objWord.Selection
.ParagraphFormat.Alignment = wdAlignParagraphLeft
With .Font
.Size = 12
.Name = "ＭＳ ゴシック"
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
よろしくお願いします。
|
|
tomo
- 07/4/6(金) 14:04 -
