22-05-24, 12:06
|
 | Διαχειριστής Όνομα: Τάσος Φιλοξενιδης Έκδοση λογισμικού Office: Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική | | Εγγραφή: 21-10-2009
Μηνύματα: 2.030
| |
Καλημέρα Γιώργο.
Πρόσθεσε τον παρακάτω κώδικα στη φόρμα και δοκίμασε: Κώδικας: Private Sub web1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
pDisp.Document.CurrentviewMode = 4 'Προβολή: 4 = Λεπτομέρειες, 3 = Λίστα
pDisp.Document.SortColumns = "prop:System.ItemTypeText;System.ItemNameDisplay;" 'ταξινόμηση με αύξουσα σειρά
'pDisp.Document.SortColumns = "prop:-System.ItemTypeText;-System.ItemNameDisplay;" 'ταξινόμηση με φθίνουσα σειρά
End Sub
Καλή συνέχεια.
Τάσος
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών |