φτιάχνοντας όλες τις εικόνες με μία macro

[serpico75]

Καλησπέρα.

 

Εάν βάλω σε ένα Word document (με Insert -> Picture -> From file... ) π.χ. 3 εικόνες από 3 αρχεία εικόνων, έρχονται στο έγγραφο καί οι τρεις εικόνες, και είναι by default "In Line With Text".

 

Αυτό που θέλω είναι να κάνω καί τις τρεις απευθείας (με μία macro) να γίνουν "In Front of Text".

 

Έχω ψάξει πάρα πολύ για τον κώδικα που χρειάζεται αυτή η macro, αλλά, δυστυχώς δεν τα καταφέρνω. Πρέπει manually να το κάνω στις εικόνες μία-μία.

 

Οποιαδήποτε βοήθεια θα ήταν πολύτιμη.

 

Ευχαριστώ!

[serpico75]

Για όποιον ενδιαφέρεται για κάτι τέτοιο, ο κώδικας είναι:

 

Sub testing()
Dim shp As InlineShape
For Each shp In ActiveDocument.InlineShapes
If shp.Type = wdInlineShapePicture Then
shp.ConvertToShape.WrapFormat.Type = wdWrapFront
End If
Next shp
End Sub

[slalom]

Και αυτα που τα γραφεις?

[minast]

On 13/6/2025 at 6:47 ΜΜ, το μέλος slalom έγραψε:

Και αυτα που τα γραφεις?

View -> Macros