|
▼Tsuyo さん:
> そこでもう一つ問題が発生してしまったのですが、呼び出された名刺ファイルが同じものが3枚重なっているのです。他のモジュールが悪いのかと調べてみましたが、原因が見つかりません。3回同じ命令を繰り返しているのでしょうか?
> 情報が少なくて申し訳ないのですが、この現象から想像がつくことがありましたら教えて下さい。
↓ ここのところですよね?
>
> 保存場所 = "D:\業務\見積書作成\見積書\"
> 作成者名 = 保存場所 & "名刺写し\" & Sheets("見積シート").Range("Q6").Value & ".jpg"
>
> Worksheets("見積出").Select
> ActiveSheet.Shapes.AddPicture 作成者名, False, True, 0, 0, 180, 120
特に3回も貼り付けているコードには見えませんが・・・
念のために
>Private Sub Worksheet_Change(ByVal Target As Range)
>'見積作成者を見積書に貼り付ける
>'事前にメインシートのコマンドボックスから作成者名をで持ってきている
>If Not Intersect(Target, Range("Q6")) Is Nothing Then
> Dim 保存場所 As String
> Dim 作成者名 As String
Application.EnableEvents = False
'処理
Application.EnableEvents = True
としてみたらいかがえしょうか?
|
|