Il GoTo è da evitare. Usa piuttosto una routine che accetti un argomento. In pratica:
If Me![combotipofluido] = "AMMONIACA NH3" Then
Doc.Bookmarks("fluidoimage").Select
SelezionaProdotto "Ammoniaca"
End If
If Me![combotipofluido] = "GLICOLE ETILENICO" Then
Doc.Bookmarks("fluidoimage2").Select
SelezionaProdotto "GlicoleEtilenico"
End If
Sub SelezionaProdotto(Prod As String)
Dim fName As String
Select Case Prod
Case "Ammoniaca"
fName = "N:\FOOD\Database Ricerca Contratti\Automanuali\Fluidi\Gas\Ammoniaca\AMMONIA CA_Pagina_1.jpg"
Case "GlicoleEtilenico"
fName = "N:\FOOD\Database Ricerca Contratti\Automanuali\Fluidi\Gas\Glicole Etilenico\GlicoleEtilenico_Pagina_1.jpg"
End Select
Wrd.Selection.InlineShapes.AddPicture FileName:= fName
End Sub
In questo modo mantieni la routine principale compatta e usi una sola routine per incapsulare tutti i prodotti dei quali selezionare l'immagine.
TheTruster