はメインモジュールからのuserform呼び出し関数を持っていて、imageBoxを取り込みます

Question

Public Function LoadImage() As Object 

    For Each pics In sheetImages.Shapes 
    If (CStr(pics.Name) = CStr(currpartImage)) Then 
     Me.ImagePreview.Picture =PictureFromShape(sheetImages.Shapes(currImage)) 
     Me.ImagePreview.PictureSizeMode = 3 
     currImageRow = sheetImages.Shapes(currpartImage).TopLeftCell.row + 1 
    End If 
    Next 
End Function 

私のメインモジュールからこの関数を呼び出すことを試みています。この関数が入っているとうまく動作しますユーザーフォームのコードを私はすべての私のuserforms ....このコードをコピーすることを避けるためにしようとしているとき私はuserform- "私はこの機能を置く。 「オブジェクトとして」&は

Answer 1

を除去して、あなたのルーチンにパラメータを追加します。

フォームから呼び出す

Public Sub LoadImage(imageControl as Object) As Object 
    For Each pics In sheetImages.Shapes 
    If (CStr(pics.Name) = CStr(currpartImage)) Then 
     imageControl .Picture =PictureFromShape(sheetImages.Shapes(currImage)) 
     imageControl .PictureSizeMode = 3 
     currImageRow = sheetImages.Shapes(currpartImage).TopLeftCell.row + 1 
    End If 
    Next 
End Sub 

：

LoadImage Me.ImagePreview 

あなたはまたで参照されている他のアイテムを渡す必要があります​​が、ユーザーフォームの外部にはありません。