Grafik/Zeichnung in Userform
24.06.2005 10:59:45
otto
ich möchte eine Grafik(Zeichnung) in einer Userform als Miniaturansicht anzeigen lassen, ohne dasss das Label oder Picture damit verknüpft ist.
Der Dateiname der Zg. steht in einer bestimmten Zelle(D20). Wie kann ich das Problem per Code lösen? Die Bildqualität von Grafiken ist immer ziemlich schlecht in einer Userform.
folgenden Code verwende ich um in Excel Diese zeichnung einzufügen.
Sub Zeichnung()
Dim bildName As String
Dim bildPfad As String
bildPfad = "\\Server\Kundenzeichnungen\"
bildName = Worksheets("Übersicht").[AA1] & ".tif"
Worksheets("Übersicht").Range("G3").Select
ActiveSheet.Pictures.Insert (bildPfad & bildName)
End Sub
Bis bald
otto
Anzeige