Forum

Αναζήτηση στο ms-office.gr

Πάμε!
ms-office.gr > Forum > Microsoft Excel > Excel - Ερωτήσεις / Απαντήσεις > [VBA] Εισαγωγή και στοίχιση φωτογραφίας

Excel - Ερωτήσεις / Απαντήσεις Ότι έχει σχέση με συναρτήσεις, μορφοποίηση, εκτυπώσεις γραφήματα κτλ.

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 28-06-18, 16:22
Όνομα: Δημήτρης
Έκδοση λογισμικού Office: Ms-Office 2013
Γλώσσα λογισμικού Office: Αγγλική
 
Εγγραφή: 24-03-2012
Περιοχή: Θεσσαλονίκη
Μηνύματα: 70
Προεπιλογή Εισαγωγή και στοίχιση φωτογραφίας

Καλησπέρα στην παρέα του φόρουμ.

Προσπαθώ να εισάγω φωτογραφία και να την κεντράρω σε συγκεκριμένη περιοχή κελιών χωρίς να παραμορφοποιηθεί. Η φωτογραφία εισάγεται κανονικά αλλά δεν κεντράρει στην καθορισμένη περιοχή. Δεν μπορώ να βρω που οφείλεται και αν μπορεί να διορθωθεί.
Ο προσωρινός τρόπος που έχω βρει είναι προσθέτοντας στα περιθώρια τοποθέτησης της φωτογραφίας κάποιες τιμές για το επάνω μέρος και για το αριστερό μέρος της φωτογραφίας. Δεν λειτουργεί όμως πάντα. Αν μπορεί κάποιος να βοηθήσει.
Ευχαριστώ.
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsm Insert_Pictures.xlsm (230,6 KB, 19 εμφανίσεις)
Απάντηση με παράθεση
  #2  
Παλιά 29-06-18, 19:39
Το avatar του χρήστη Spirosgr
Συντονιστής
Όνομα: Σπύρος Τσιλιγιάννης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 22-11-2011
Περιοχή: Αθήνα
Μηνύματα: 2.402
Προεπιλογή

Καλησπέρα Δημήτρη.
Έστω μια περιοχή b2:d16, στο κέντρο της οποίας, θέλουμε να εισάγουμε μια x εικόνα.
Χρησιμοποίησε το πιο κάτω τμήμα κώδικα, προσαρμόζοντας το στο έργο σου:
Κώδικας:
Dim rng As Range
    Set rng = Sh1.Range("b2:d16")
    With Sh1.Pictures.Insert("Διαδρομή εικόνας συν όνομα εικόνας συν κατάληξη πχ .png")
        .Height = rng.Height / 2
        .Width = rng.Width / 2
        .Left = rng.Left + ((rng.Width - .Width) / 2)
        .Top = rng.Top + ((rng.Height - .Height) / 2)
    End With
με αυτόν τον υπολογισμό, η εικόνα θα πάει ακριβώς στο κέντρο της περιοχής b2:d16.

Όμως
Η μέθοδος Pictures.Insert που χρησιμοποιείς, δεν είναι και η καλύτερη,
διότι είναι μόνο για τον υπολογιστή σου...
Αν το βιβλίο ανοίξει σε άλλο υπολογιστή, η εικόνα δεν εμφανίζεται (*βλέπε εικόνα 1)

Καλύτερα, να διαβάσεις και να χρησιμοποιήσεις, την μέθοδο AddPicture
όπου μπορείς να έχεις μόνιμο αποτέλεσμα στην εικόνα.
Συνημμένα Thumbnails
Εισαγωγή και στοίχιση φωτογραφίας-screenshot_1.jpg  
Απάντηση με παράθεση
  #3  
Παλιά 29-06-18, 21:34
Όνομα: Δημήτρης
Έκδοση λογισμικού Office: Ms-Office 2013
Γλώσσα λογισμικού Office: Αγγλική
 
Εγγραφή: 24-03-2012
Περιοχή: Θεσσαλονίκη
Μηνύματα: 70
Προεπιλογή

Καλησπέρα Σπύρο,
Σε ευχαριστώ πολύ. Οι υποδείξεις σου είναι πολύτιμη βοήθεια.

Φιλικά
Δημήτρης
Απάντηση με παράθεση
  #4  
Παλιά 29-06-18, 23:55
Το avatar του χρήστη Spirosgr
Συντονιστής
Όνομα: Σπύρος Τσιλιγιάννης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 22-11-2011
Περιοχή: Αθήνα
Μηνύματα: 2.402
Προεπιλογή

Να 'σαι καλά, καλή συνέχεια.
Απάντηση με παράθεση
Απάντηση στο θέμα

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[ Φόρμες ] Αυτόματη εύρεση και εισαγωγή φωτογραφίας ως hyperlink vala Access - Ερωτήσεις / Απαντήσεις 18 01-03-18 03:17
[ Φόρμες ] ΕΙΣΑΓΩΓΗ ΦΩΤΟΓΡΑΦΙΑΣ ΣΕ ΦΟΡΜΑ artchrist73 Access - Ερωτήσεις / Απαντήσεις 2 23-05-17 23:28
Στοίχιση στηλών σε ListBox με αριθμούς στα δεξιά Chris Visual Basic for Applications (VBA) 5 11-10-16 14:56
Ανέβασμα φωτογραφίας pm4698 Access - Ερωτήσεις / Απαντήσεις 1 30-10-10 17:08


Η ώρα είναι 06:27.