[VBA] Εισαγωγή και στοίχιση φωτογραφίας

[jockey17]

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

Προσπαθώ να εισάγω φωτογραφία και να την κεντράρω σε συγκεκριμένη περιοχή κελιών χωρίς να παραμορφοποιηθεί. Η φωτογραφία εισάγεται κανονικά αλλά δεν κεντράρει στην καθορισμένη περιοχή. Δεν μπορώ να βρω που οφείλεται και αν μπορεί να διορθωθεί.
Ο προσωρινός τρόπος που έχω βρει είναι προσθέτοντας στα περιθώρια τοποθέτησης της φωτογραφίας κάποιες τιμές για το επάνω μέρος και για το αριστερό μέρος της φωτογραφίας. Δεν λειτουργεί όμως πάντα. Αν μπορεί κάποιος να βοηθήσει.
Ευχαριστώ.

[Spirosgr]

Καλησπέρα Δημήτρη.
Έστω μια περιοχή 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
όπου μπορείς να έχεις μόνιμο αποτέλεσμα στην εικόνα.

[jockey17]

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

Φιλικά
Δημήτρης

[Spirosgr]

Να 'σαι καλά, καλή συνέχεια.