Επιλογή / Κλήση εικόνων από λίστα (από εσωτερικό ή εξωτερικό αρχείο)

[Spirosgr]

Το συνημμένο FindImage.xlsx
είναι ένα παλιότερο αρχείο που ανέβηκε στο φόρουμ
και έδειχνε πως μπορούμε από λίστα προϊόντων με αναζήτηση στο ID (του προϊόντος)
να έχουμε τις λεπτομέρειες αλλά και την εικόνα του προϊόντος.
Με βάση αυτό το αρχείο έγινε προσαρμογή στο
συνημμένο Based on FindImage.xlsx
όπου οι φωτογραφίες μαθητών αποθηκεύονται μέσα στην excel και αλλάζουν
με την αλλαγή της dropdown.
Επειδή οι μέθοδοι αυτές είναι μεν καλές και αξιόπιστες αλλά σταδιακά αυξάνουν το μέγεθος
του αρχείου (προσθέτοντας εικόνες)
στο .zip υπάρχει μια μέθοδος "κλήσης" των εικόνων από εξωτερικό φάκελο με VBA.
Πριν την δημιουργία του αρχείου δημιουργούμε έναν φάκελο με όλες τις φωτογραφίες μας
(στο παράδειγμα ονομάστηκε StudentImages) και τον αποθηκεύουμε στον υπολογιστή
πχ στις εικόνες ή τα έγγραφα μας.
Τις φωτογραφίες που υπάρχουν μέσα σε αυτόν (μαθητές) τις ονομάζουμε με τα ονόματα των μαθητών που χρησιμοποιούνται στην λίστα (=StudentList) που παίρνει η dropdown.
ΠΡΟΣΟΧΗ:
Πρέπει να είναι ακριβώς όμοια τα ονόματα διότι η μέθοδος είναι Case Sensitive.
Αφού ολοκληρώσουμε την εργασία ανοίγουμε το αρχείο excel και
το αποθηκεύουμε ως .xlsm ή .xlsb ώστε να μπορεί να δουλέψει κώδικας.
Πάμε στην κορδέλα > Developer > Insert > και εισάγουμε το αντικείμενο Image
(βρίσκεται στην κάτω ομάδα αντικειμένων ActiveX controls)
Το προσαρμόζουμε μέσα στο κελί που θέλουμε να εμφανίζονται οι εικόνες και τροποποιούμε
κάποιες από τις ιδιότητές του (*βλέπε εικόνα καταγραφή μέσα στο .zip)
ΕΛΕΓΧΟΣ:
Τελειώνοντας προσέχουμε να βγούμε από το Disign Mode για να λειτουργεί.

Στο ίδιο φύλλο από την Tab με δεξί κλικ και επιλογή View Code
πηγαίνουμε πίσω στον κώδικα
και στο συμβάν Change γράφουμε τον κώδικα μας.
(*βλέπε αρχείο λειτουργική μονάδα του φύλλου)
Προσαρμόζουμε το Path για να λειτουργεί σωστά και...
Προσέχουμε την κατάληξη .jpg
Πρέπει να συμβαδίζει με τον τύπο φωτογραφιών μας.
Αν πχ τα αρχεία μας είναι .png πρέπει να αλλάξει σε .png
Η Συνέχεια στα αρχεία ...