Note: The other languages of the website are Google-translated. Back to English

Πώς να εισαγάγετε πολλές εικόνες και να αλλάξετε το μέγεθός τους ταυτόχρονα στο Excel;

Είναι εύκολο για εμάς να εισαγάγουμε μία εικόνα στο Excel, αλλά αν πρέπει να εισαγάγετε πολλές εικόνες ταυτόχρονα ώστε να εξοικονομήσετε πολύ χρόνο, πώς θα μπορούσατε να το κάνετε;


Εισαγάγετε πολλές εικόνες και αλλάξτε το μέγεθός τους μαζικά με τη λειτουργία Εισαγωγή εικόνας

Μπορούμε να εισαγάγουμε πολλές εικόνες μαζικά από τη δυνατότητα (Εισαγωγή) εικόνας στο Excel και, στη συνέχεια, να αλλάξουμε το μέγεθος ταυτόχρονα Κάντε τα εξής:

1. Στο φύλλο εργασίας, κάντε κλικ στο Κύριο θέμα > Εικόνα.

2. Στο παράθυρο διαλόγου Εισαγωγή εικόνας, ανοίξτε το φάκελο που περιέχει εικόνες που θα εισαγάγετε, επιλέξτε πολλές εικόνες όπως χρειάζεστε και κάντε κλικ στο Κύριο θέμα κουμπί. Δείτε το στιγμιότυπο οθόνης:
Note: Κράτημα Ctrl κλειδί, μπορείτε να επιλέξετε πολλές μη γειτονικές εικόνες κάνοντας κλικ σε αυτές μία προς μία. κράτημα αλλαγή κλειδί, μπορείτε να επιλέξετε πολλές παρακείμενες εικόνες κάνοντας κλικ στην πρώτη και την τελευταία.

Τώρα οι εικόνες εισάγονται μαζικά και στοιβάζονται στο φύλλο εργασίας.

3. Διατηρήστε αυτές τις εικόνες επιλεγμένες και αλλάξτε το μέγεθος μαζικά εισάγοντας νέο αριθμό και στις δύο Πλάτος και Ύψος κουτιά στο Μέγεθος ομάδα για το Μορφή αυτί. Δείτε το στιγμιότυπο οθόνης:

Τώρα όλες οι εικόνες που έχουν εισαχθεί αλλάζουν ταυτόχρονα στο ίδιο μέγεθος ταυτόχρονα.

4. Προς το παρόν πρέπει να μετακινήσετε χειροκίνητα κάθε εικόνα ξεχωριστά σε κατάλληλο μέρος.

Note: Εάν υπάρχουν δεκάδες εικόνες στοίβαξης, θα είναι πολύ χρονοβόρο να τις μετακινήσετε χειροκίνητα σε μέρη.

Μαζική εισαγωγή πολλαπλών εικόνων που ταιριάζουν με τα περιεχόμενα κελιού στο Excel

Η καλύτερη Ταίριασμα εικόνων εισαγωγής χαρακτηριστικό του Kutools για Excel, είναι ένα φανταστικό εργαλείο που μπορεί να εισάγει παρτίδες και να εισαγάγει πολλές εικόνες με βάση το περιεχόμενο των κυττάρων και να αλλάξει το μέγεθος των εισαγόμενων εικόνων όπως το μέγεθος του κελιού ή στο καθορισμένο μέγεθος εύκολα.


Εισαγωγή αντιστοίχισης φωτογραφιών 01

Kutools για Excel - Περιλαμβάνει περισσότερα από 300 εύχρηστα εργαλεία για το Excel. Δωρεάν δοκιμή πλήρους δυνατότητας 30-Ημέρα, δεν απαιτείται πιστωτική κάρτα! Παρ'το Τώρα

Εισαγάγετε πολλές εικόνες και αλλάξτε το μέγεθος μαζικά με το OneNote

Για να αποφύγετε τη μετακίνηση στοίβας εικόνων μία προς μία, αυτή η μέθοδος εισάγει ένα άλλο κόλπο για την εισαγωγή πολλαπλών εικόνων με τη βοήθεια του OneNote. Κάντε τα εξής:

1. Εκκινήστε το OneNote και δημιουργήστε μια νέα σελίδα. Και μετά κάντε κλικ Κύριο θέμα > Εικόνα.

2. Στο παράθυρο διαλόγου Εισαγωγή εικόνας, ανοίξτε το φάκελο που περιέχει εικόνες που θα εισαγάγετε, επιλέξτε πολλές εικόνες όπως χρειάζεστε και κάντε κλικ στο Κύριο θέμα κουμπί. Δείτε το στιγμιότυπο οθόνης:
Note: Κράτημα Ctrl κλειδί, μπορείτε να επιλέξετε πολλές μη γειτονικές εικόνες κάνοντας κλικ σε αυτές μία προς μία. κράτημα αλλαγή κλειδί, μπορείτε να επιλέξετε πολλές παρακείμενες εικόνες κάνοντας κλικ στην πρώτη και την τελευταία.

doc εισάγετε πολλές εικόνες OneNote 032

3. Τύπος Ctrl + A για να επιλέξετε όλες τις εισηγμένες εικόνες στο OneNote και, στη συνέχεια, πατήστε Ctrl + C κλειδιά για να τα αντιγράψετε.

4. Μεταβείτε στο φύλλο εργασίας στο Excel και πατήστε Ctrl + V πλήκτρα για να επικολλήσετε τις εικόνες στο φύλλο εργασίας. Τώρα όλες οι εικόνες επικολλούνται κάθετα όπως φαίνεται στο αριστερό στιγμιότυπο οθόνης.

5. Επιλέξτε οποιαδήποτε από τις εικόνες και πατήστε Ctrl + A για να επιλέξετε όλα αυτά. Στη συνέχεια, αλλάξτε το μέγεθος των φωτογραφιών μαζικά εισάγοντας νέους αριθμούς και στα δύο Πλάτος και Ύψος κουτιά στο Μέγεθος ομάδα για το Μορφή αυτί. Δείτε το στιγμιότυπο οθόνης:

Τώρα όλες οι καθορισμένες εικόνες εισάγονται στο Excel και αλλάζουν μέγεθος στο ίδιο μέγεθος μαζικά.


Εισαγάγετε πολλές εικόνες στο Excel με κωδικό VBA

Με τον ακόλουθο κώδικα VBA, μπορείτε να εισαγάγετε πολλές εικόνες στο κελί αρχείων Excel ανά κελί.

1. Επιλέξτε το πρώτο κελί της περιοχής προορισμού που θέλετε να εισαγάγετε εικόνες.

2. Κρατήστε πατημένο το ALT + F11 και ανοίγει το Microsoft Visual Basic για εφαρμογές παράθυρο.

3. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε την ακόλουθη μακροεντολή στο Παράθυρο ενότητας.

Sub InsertPictures()
'Update 20140513
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)
xColIndex = Application.ActiveCell.Column
If IsArray(PicList) Then
    xRowIndex = Application.ActiveCell.Row
    For lLoop = LBound(PicList) To UBound(PicList)
        Set Rng = Cells(xRowIndex, xColIndex)
        Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        xRowIndex = xRowIndex + 1
    Next
End If
End Sub

4. Στη συνέχεια πατήστε το F5 κλειδί για την εκτέλεση αυτού του κώδικα.

5. Στο παράθυρο διαλόγου Άνοιγμα, ανοίξτε το φάκελο που περιέχει τις εικόνες που θέλετε να εισαγάγετε, επιλέξτε πολλές εικόνες που θα εισαγάγετε και κάντε κλικ στο Ανοικτό κουμπί. Και όλες οι επιλεγμένες εικόνες έχουν εισαχθεί στην επιλογή σας με βάση το μέγεθος του κελιού. Δείτε το στιγμιότυπο οθόνης:


Εισαγάγετε πολλές εικόνες και προσαρμόστε τις αυτόματα με το Kutools για Excel

Kutools για Excel'S Εισαγωγή εικόνων Το βοηθητικό πρόγραμμα μπορεί να σας βοηθήσει να εισαγάγετε γρήγορα πολλές εικόνες στο Excel με βάση το μέγεθος του κελιού ή το μέγεθος της εικόνας. Μπορείτε επίσης να καθορίσετε το ύψος και το πλάτος των εικόνων όπως χρειάζεστε.

Kutools για Excel - Περιλαμβάνει περισσότερα από 300 εύχρηστα εργαλεία για το Excel. Δωρεάν δοκιμή πλήρους δυνατότητας 30-Ημέρα, δεν απαιτείται πιστωτική κάρτα! Παρ'το Τώρα

1. Κλίκ Kutools Plus > Εισαγωγή εξαγωγή > Εισαγωγή εικόνων, δείτε το στιγμιότυπο οθόνης:

2. Στην Εισαγωγή εικόνων πλαίσιο διαλόγου, κάντε τα εξής:
(1) Καθορίστε τη σειρά εμφάνισης των εικόνων από το Εισαγωγή παραγγελίας αναπτυσσόμενη λίστα, μπορείτε να επιλέξετε Γεμίστε κάθετα κελί μετά κελί or Γεμίστε οριζόντια κελί μετά κελί.
(2) Κάντε κλικ Προσθέτω για να επιλέξετε τα αρχεία εικόνας ή το φάκελο για να προσθέσετε τις εικόνες στη λίστα εικόνων. Και όλες οι επιλεγμένες φωτογραφίες σας θα εμφανίζονται στο πλαίσιο λίστας.
(3) Κάντε κλικ στο Μέγεθος εισαγωγής κουμπί;

3. Τώρα στο Εισαγωγή μεγέθους εικόνας διαλόγου, μπορείτε να επιλέξετε το μέγεθος της εικόνας που ταιριάζει στις ανάγκες σας. Δείτε το στιγμιότυπο οθόνης:

4. Αφού καθορίσετε το μέγεθος της εικόνας, κάντε κλικ OK για να κλείσετε αυτό το παράθυρο διαλόγου και να επιστρέψετε στο Εισαγωγή εικόνων κάντε κλικ στο πλαίσιο διαλόγου εισαγωγή για να εισαγάγετε τις εικόνες.

5. Στο νέο παράθυρο διαλόγου Εισαγωγή εικόνων, επιλέξτε το πρώτο κελί της περιοχής προορισμού που θα εισαγάγετε εικόνες και κάντε κλικ στο OK κουμπί.

Προς το παρόν, όλες οι επιλεγμένες εικόνες σας έχουν εισαχθεί στα κελιά σας από το ενεργό κελί κάθετα ή οριζόντια. Δείτε το σωστό στιγμιότυπο οθόνης:

Η καλύτερη Εισαγωγή εικόνων Η δυνατότητα του Kutools για Excel έχει σχεδιαστεί για να εισάγει μια παρτίδα εικόνων ταυτόχρονα με αντίστοιχο μέγεθος κελιού, καθορισμένο μέγεθος ή μεγέθη εικόνων στο Excel. Κάντε μια δωρεάν δοκιμή!


Εισαγάγετε πολλές εικόνες που ταιριάζουν με τα ονόματά τους με το Kutools για Excel

Το Kutools για Excel υποστηρίζει επίσης μια δραματική Ταίριασμα εικόνων εισαγωγής δυνατότητα για αντιστοίχιση εικόνων και περιεχομένων κελιού και εισαγωγή ταιριασμένων εικόνων μόνο χύμα στο Excel.

Kutools για Excel - Περιλαμβάνει περισσότερα από 300 εύχρηστα εργαλεία για το Excel. Δωρεάν δοκιμή πλήρους δυνατότητας 30-Ημέρα, δεν απαιτείται πιστωτική κάρτα! Παρ'το Τώρα

1. Επιλέξτε τα κελιά με το όνομα της εικόνας που θέλετε να εισαγάγετε τις αντίστοιχες εικόνες τους και κάντε κλικ στο Kutools Plus > Εισαγωγή εξαγωγή > Ταίριασμα εικόνων εισαγωγής. δείτε το στιγμιότυπο οθόνης:

2. Στο αναδυόμενο παράθυρο διαλόγου Match Import Pictures, κάντε τα εξής:
(1) Καθορίστε τη σειρά εμφάνισης των εικόνων από το Εισαγωγή παραγγελίας αναπτυσσόμενη λίστα
(2) Κάντε κλικ Προσθέτω κουμπί για να προσθέσετε τις εικόνες στο πλαίσιο λίστας εικόνων. Για ενημέρωσή σας, θα εμφανίζονται μόνο οι αντίστοιχες φωτογραφίες.
(3) Στη συνέχεια κάντε κλικ Μέγεθος εισαγωγής κουμπί.

3. Τώρα στο Εισαγωγή μεγέθους εικόνας διαλόγου, μπορείτε να επιλέξετε το μέγεθος της εικόνας που ταιριάζει στις ανάγκες σας και να κάνετε κλικ στο Ok κουμπί. Δείτε το στιγμιότυπο οθόνης:

4. Τώρα επιστρέφετε στο Εισαγωγή εικόνων κάντε κλικ στο πλαίσιο διαλόγου εισαγωγή για να εισαγάγετε τις εικόνες.

5. Στο αναδυόμενο παράθυρο διαλόγου Match Import Pictures, προσδιορίστε το πρώτο κελί του εύρους προορισμού που θα εισαγάγετε εικόνες και κάντε κλικ στο OK κουμπί. Δείτε το στιγμιότυπο οθόνης:

Μέχρι στιγμής, όλες οι εικόνες έχουν εισαχθεί στα κελιά με βάση τα σχετικά ονόματά τους. Δείτε το σωστό στιγμιότυπο οθόνης:

Η καλύτερη Ταίριασμα εικόνων εισαγωγής Η δυνατότητα Kutools για Excel μπορεί να βοηθήσει τους χρήστες του Excel να φιλτράρουν γρήγορα εικόνες με βάση τις τιμές των κυττάρων και στη συνέχεια να εισάγουν αυτές τις εικόνες μαζικά. Επιπλέον, αυτές οι αντιστοιχισμένες εικόνες μπορούν να αλλάξουν το μέγεθος στο καθορισμένο μέγεθος ή το μέγεθος του κελιού αυτόματα. Κάντε μια δωρεάν δοκιμή!


Επίδειξη: Εισαγάγετε πολλές εικόνες και αλλάξτε το μέγεθος ταυτόχρονα στο Excel

Kutools για Excel περιλαμβάνει περισσότερα από 300 εύχρηστα εργαλεία για το Excel, δωρεάν για δοκιμή χωρίς περιορισμούς 30 ημέρα. Δωρεάν δοκιμή τώρα!      Αγοράστε τώρα!


Σχετικά Άρθρα


Τα καλύτερα εργαλεία παραγωγικότητας του Office

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

  • Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2021 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
kte καρτέλα 201905

Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (47)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Οι οδηγίες με την επικεφαλίδα: Η εισαγωγή πολλών εικόνων στο Excel με κώδικα VBA είναι απλά απίστευτη γρήγορη και αποτελεσματική!!! αυτή είναι μια καλή εναλλακτική για να αγοράσετε και να εγκαταστήσετε πρόσθετα. Αυτό είναι το πρώτο μου σχόλιο στο Διαδίκτυο!! συγχαρητήρια!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, μπορώ να χρησιμοποιήσω τη λειτουργική μονάδα InsertPictures και λειτουργεί σωστά όσον αφορά το jpg. Ωστόσο, δεν θέλει να λειτουργήσει για PNG. Μπορείτε σας παρακαλώ να με συμβουλεύσετε; Με εκτίμηση, Λόρενς
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Στο πρώτο θέμα "Εισαγωγή πολλαπλών εικόνων στο Excel με κώδικα VBA", πώς να εισαγάγετε μία εικόνα σε δύο κελιά. για παράδειγμα, η πρώτη εικόνα θα εισαχθεί στο κελί A1 και A2, η δεύτερη εικόνα θα εισαχθεί στο κελί A3 και A4 και ούτω καθεξής.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
καλή υποστήριξη για το Excel.....εσύ φίλε βοηθάς πραγματικά στην εξοικονόμηση χρόνου. ευχαριστώ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Υπέροχη ανάρτηση! Αλλά έχω άλλους τρόπους να κάνω το ίδιο πράγμα..... ==================================== ============ Sub ipic() Dim i ως ακέραιος αριθμός για i = 2 έως 10 κελιά (i, 1). Επιλέξτε Dim picname As string picname = Cells(i, 2) ActiveSheet.Pictures. Insert("F:\Ram-PC\Macro\MyImage\" & picname & ".jpg").Επιλέξτε με επιλογή .Left = ActiveCell.Left .Top = ActiveCell.Top .ShapeRange.LockAspectRatio = msoFalse .ShapeRange.Ύψος = 34# .ShapeRange.Width = 80# End With Next Range("a1").Επιλέξτε End Sub
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Υπάρχει έκδοση του Kuttools για Mac;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Είναι δυνατόν να τροποποιήσετε αυτόν τον κώδικα vba για να εισαγάγετε 4 εικόνες σε ένα μοτίβο που μοιάζει με πλέγμα ως εξής: pic1 στο A1, pic2 στο A2, pic3 στο B1 και pic4 στο B2; Τα τανκς!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
δεν πειράζει που βρήκα πώς να το κάνω :)
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, μπορείτε να μοιραστείτε τον τροποποιημένο κωδικό;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
SubInsertPictures() 'Ενημέρωση 20140513 Dim PicList() Ως παραλλαγή Dim PicFormat ως συμβολοσειρά Dim Rng ως εύρος Dim sShape As Shape On Σφάλμα Συνέχιση Επόμενο PicList = Εφαρμογή.GetOpenFilename(PicFormat, MultiSelectivexnpplication:Col. IsArray(PicList) Στη συνέχεια, xRowIndex = Application.ActiveCell.Row Για lLoop = LBound(PicList) To UBound(PicList) Set Rng = Cells(xRowIndex, xColIndex) Set sShape = ActiveSheet.Sapicture(mw.SoopistL), , Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Θα μπορούσατε παρακαλώ να με βοηθήσετε να τροποποιήσω τον κώδικα για να εισαγάγετε τη συγχωνευμένη στήλη και γραμμή. SubInsertPictures() 'Ενημέρωση 20140513 Dim PicList() Ως παραλλαγή Dim PicFormat ως συμβολοσειρά Dim Rng ως εύρος Dim sShape ως σχήμα σε σφάλμα Συνέχιση Επόμενο PicList = Εφαρμογή. Λήψη OpenFilename(Pi cFormat, MultiSelectAcIpplication:=olT). Στήλη Εάν IsArray(PicList ) Τότε xRowIndex = Application.Act iveCell.Row Για lLoop = LBound(PicList) To UBound(PicList) Set Rng = Cells(xRowIndex , xColIndex) Set sShape =ActivePiclLoiclAet. , msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
επιλέξτε τα κελιά και αλλάξτε το μέγεθός τους κατά πλάτος και ύψος ανάλογα με τις ανάγκες σας.. αν έχετε δέκα φωτογραφίες επιλέξτε δέκα ή περισσότερα κελιά επιλέξτε περισσότερα..!! στη συνέχεια πατήστε Alt+F11 και, στη συνέχεια, κάντε κλικ στο INSERT, στη συνέχεια κάντε κλικ στο MODULE, στη συνέχεια, επικολλήστε τον ΠΑΡΑΚΑΤΩ ΚΩΔΙΚΟ ΩΣ ΕΧΕΙ. PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True) xColIndex = Application.ActiveCell.Column If IsArray(PicList) Στη συνέχεια xRowIndex = Application.ActiveCell.Row For lLoop = LBound(PicLls)(PicList) xRowIndex, xColIndex) Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = +20140513AFTER Endx Αν ΠΑΡΑΠΑΝΩ ΚΩΔΙΚΟΣ ΠΑΤΗΣΤΕ F1 .. ΜΕΤΑ ΕΠΙΛΕΞΤΕ ΤΑ ΑΡΧΕΙΑ ΑΠΟ ΤΟΝ ΥΠΟΛΟΓΙΣΤΗ ΟΠΟΥ ΚΑΙ ΝΑ ΕΙΝΑΙ. ΜΕΧΡΙ ΤΗΝ ΑΝΑΓΚΗ ΣΑΣ. ΤΟΤΕ ΕΑΝ ΔΕΝ ΑΠΟΘΗΚΕΥΣΑΤΕ ΤΟ ΒΙΒΛΙΟ ΕΡΓΑΣΙΑΣ ΤΟΤΕ ΘΑ ΖΗΤΗΣΕΙ ΝΑ ΤΟ ΑΠΟΘΗΚΕΥΣΕΙ. ΑΝ ΤΟ ΕΧΕΙΣ ΑΠΟΘΗΚΕΥΕΙ ΗΔΗ. ΤΟΤΕ Η ΔΟΥΛΕΙΑ ΕΙΝΑΙ ΕΛΠΙΖΩ ΑΥΤΟ ΝΑ ΒΟΗΘΗΣΕΙ.. Ali..!!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ πολύ, λειτουργεί
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας EXcel Masters, έχω 2 φύλλα excel. Ένα με περισσότερες από εκατό εικόνες και περιγραφή της εικόνας στο επόμενο κελί. Το άλλο φύλλο μετά την επιλογή μάλλον έφυγε με 40 περιγραφή του. Πώς μπορώ να μεταφέρω τις εικόνες σε αυτό το φύλλο σύμφωνα με την επιλογή μου. Ευχαριστώ αλ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
ή χρησιμοποιείτε απευθείας το image-xls . Με αυτό το πρόσθετο Excel μπορείτε να εισάγετε απεριόριστο αριθμό Εικόνων στο κελί του Excel ή ως σχόλιο. αλλάζει επίσης το μέγεθος των εικόνων σας. και είναι δυνατό να παραγγείλετε και να φιλτράρετε το φύλλο Excel, συμπεριλαμβανομένων των Εικόνων !
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Είμαι χρήστης Mac και μόλις αντιγράψω τον κώδικα στη νέα λειτουργική μονάδα και τον τρέξω δεν συμβαίνει τίποτα. Υπάρχει κάτι που πρέπει να κάνω στο mac για να τρέξω τον κώδικα VBA; Ευχαριστώ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
[quote]ή χρησιμοποιείτε απευθείας image-xls . Με αυτό το πρόσθετο Excel μπορείτε να εισάγετε απεριόριστο αριθμό Εικόνων στο κελί του Excel ή ως σχόλιο. αλλάζει επίσης το μέγεθος των εικόνων σας. και είναι δυνατό να παραγγείλετε και να φιλτράρετε το φύλλο Excel, συμπεριλαμβανομένων των Εικόνων !Του Άρμιν[/quote] [quote]Οι οδηγίες με την επικεφαλίδα: Η εισαγωγή πολλών εικόνων στο Excel με κώδικα VBA είναι απλά απίστευτη γρήγορη και αποτελεσματική!!! αυτή είναι μια καλή εναλλακτική για να αγοράσετε και να εγκαταστήσετε πρόσθετα. Αυτό είναι το πρώτο μου σχόλιο στο Διαδίκτυο!! συγχαρητήρια!Του Rahul Gupta[/quote] Το δοκίμασα και φαίνεται να λειτουργεί καλά - αλλά δεν μπορείτε να παραγγείλετε ή να φιλτράρετε τη λίστα του Excel, συμπεριλαμβανομένων των φωτογραφιών. επίσης οι φωτογραφίες δεν είναι ανάλογες σε κλίμακα. οπότε αγόρασα το image-xls - κοστίζει λίγο, αλλά κάνει ό,τι χρειάζομαι
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γειά σου! Υπάρχει κάποιος λόγος για τον οποίο το "Sub InsertPictures()" δεν θα λειτουργούσε στο Excel 2003; Έχω ήδη προσθέσει την αναφορά στο Microsoft.Scripting.Runtime Ευχαριστώ εκ των προτέρων Gilberto
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
με βοηθάει πολύ. Είναι τόσο ωραία δουλειά....... Ευχαριστώ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, δοκίμασα τον κώδικα στο υπολογιστικό φύλλο μου και λειτούργησε τέλεια. Μέχρι να προσπαθήσω να κάνω φίλτρο. Βρείτε ότι η τελευταία εικόνα θα εμφανίζεται πάντα στο αποτέλεσμα του φίλτρου. κάποιος μπορεί να βοηθήσει;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Χρησιμοποιώντας το παρακάτω πρόγραμμα VBA δεν μπορείτε να εισαγάγετε την εικόνα στο συγχωνευμένο κελί, Sub InsertPictures() 'Ενημέρωση 20140513 Dim PicList() Ως παραλλαγή Dim PicFormat Ως String Dim Rng ως εύρος Dim sShape As Shape On Σφάλμα Συνέχιση Επόμενο PicList = OpenFilematG(Application. , MultiSelect:=True) xColIndex = Application.ActiveCell.Column If IsArray(PicList ) Στη συνέχεια xRowIndex = Application.Act iveCell.Row Για lLoop = LBound(PicList) To UBound(PicList) Ορισμός xRowIndex (Set Rngw)IndexI = ActiveSheet.Sha pes.AddPicture( PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub Συμβουλέψτε με να τροποποιήσω το VBA .
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σε όλους, αυτό είναι υπέροχο! Παρακολουθώ τα σεμινάρια σας εδώ και αρκετό καιρό. Αυτό που ήλπιζα ότι θα μπορούσατε να με βοηθήσετε είναι, πώς μπορώ να το αλλάξω από το να κολλήσω τις εικόνες κάτω από μια στήλη σε μια σειρά; Και πώς μπορώ να προσθέσω το "Πλήρες όνομα αρχείου (π.χ. example_image.jpg)" στη γραμμή πάνω από αυτό. Σειρά 'A' : "Filename.jpg" Σειρά 'B' : "Μικρογραφία εικόνας" Ευχαριστώ!!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, Ive εισήγαγε τις εικόνες χρησιμοποιώντας τον δικό μου κώδικα VBE. Και τώρα προσπάθησα να το μοιραστώ με τους άλλους, δυστυχώς δεν μπορούν να δουν τις φωτογραφίες..... Θα ήμουν ευγνώμων αν μπορούσε κάποιος να μου πει τι χάνω. Ευχαριστώ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτός ο κωδικός λειτουργεί ΣΧΕΔΟΝ για τις ανάγκες μου. Έχω 200 εικόνες, κάθε εικόνα πρέπει να πάει στο δικό της φύλλο. Πώς μπορώ να το κάνω αυτό;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πώς μπορώ να τροποποιήσω τον παρακάτω κώδικα, ώστε οι εικόνες να συμπληρώνονται σε μια επιλεγμένη περιοχή κελιών σε πολλές στήλες και σειρές και όχι σε διαδοχικά κελιά σε διαδοχικές σειρές στην ίδια στήλη; SubInsertPictures() 'Ενημέρωση 20140513 Dim PicList() Ως παραλλαγή Dim PicFormat ως συμβολοσειρά Dim Rng ως εύρος Dim sShape ως σχήμα σε σφάλμα Συνέχιση Επόμενο PicList = Εφαρμογή. Λήψη OpenFilename(Pi cFormat, MultiSelectAcIpplication:=olT). Στήλη Εάν IsArray(PicList ) Τότε xRowIndex = Application.Act iveCell.Row Για lLoop = LBound(PicList) To UBound(PicList) Set Rng = Cells(xRowIndex , xColIndex) Set sShape =ActivePiclLoiclAet. , msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Alguem conseguiu o codigo para a pergunta dele; estou precisando também!
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Τοποθετήστε Περισσότερα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL