Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1612to1616
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1612to1616
1612to1616
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel 2016 LoadPicture

Excel 2016 LoadPicture
18.03.2018 11:40:03
Klaus
Hallo zusammen,
ich hatte damals ein Excel Dokument mit Excel 2013 erstellt.
Nach meine Update auf 2016 geht meine Funktion mit "LoadPicutre" nicht mehr.
Fehlermeldung:
Fehler beim Kompilieren:
Projekt oder Bibliothek nicht gefunden
folgender Befehl wurde immer ausgeführt:
anzeigeMitarbeiter.Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\Bilder\" & SDestinationPath)
Image1.Height = 107
Image1.Width = 84

Hat vielleicht jemand einen Tipp für mich?
Danke Klaus

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel 2016 LoadPicture
18.03.2018 11:43:33
Hajo_Zi
Halo Klaus,
folgender Code geht auch unter 2016 
Option Explicit
Private Sub Image1_Click()
Dim Stdatei As String
Stdatei = Application.GetOpenFilename( _
"Bilder (*.bmp;*.jpg;*.gif),*," & _
"Bitmap (*.bmp),*,JPEG Image(*.jpg),*,CompuServe(*.gif),*")
If Stdatei  "" Then
ActiveSheet.Image1.Picture = LoadPicture(Stdatei)
End If
End Sub

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
AW: Excel 2016 LoadPicture
18.03.2018 12:18:08
Klaus
Hallo Hajo,
vielen Dank für die schnelle Antwort.
Ich komme mit dem Befehl nicht so zurecht wenn ich ehrlich bin.
Mein Code Schnipsel sieht so aus: 
Dim pfad, bildName, suche As String
pfad = ActiveWorkbook.Path & "\Bilder\"
bildName = Sheets("mitarbeiter").Range(aCell.Address).Offset(0, 11).Value
suche = Dir$(pfad & bildName)
Dim SDestinationPath
SDestinationPath = Sheets("mitarbeiter").Range(aCell.Address).Offset(0, 11).Text
Stdatei = ActiveWorkbook.Path & "\Bilder\" & SDestinationPath
If suche  "" Then
'    MsgBox "Pfad gefunden"
If Sheets("mitarbeiter").Range(aCell.Address).Offset(0, 11).Text = "" Then
'    SDestinationPath = ActiveWorkbook.Path & "\Bilder\default_profile.jpg"
Call defaultProfilBild
Image1.Height = 107
Image1.Width = 84
Else
anzeigeMitarbeiter.Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\Bilder\" &  _
SDestinationPath)
Image1.Height = 107
Image1.Width = 84
End If
Else
'    MsgBox "kein Profilbild gefunden"
Call defaultProfilBild
Image1.Height = 107
Image1.Width = 84
End If
aber wie ich den dann ändern muss, stehe ich gerade auf dem Schlauch.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige