Πώς να προσθέσετε ένα υδατογράφημα να BMP Με VBA

Visual Basic for Applications σάς επιτρέπει να δημιουργήσουν εφαρμογές για το Microsoft Office . Εάν έχετε μια εικόνα που θέλετε να τοποθετήσετε το υδατογράφημα αυτόματα , μπορείτε να χρησιμοποιήσετε τη γλώσσα VB υδατογράφημα της εικόνας BMP με το όνομά σας ή το όνομα τομέα . Τα καταστήματα υδατογράφημα σε ένα ξεχωριστό αρχείο εικόνας σε συνδυασμό με την εικόνα BMP , έτσι μπορείτε να διανείμετε την εικόνα για να το προστατεύσει από την κλοπή . Οδηγίες
Η

1 Κάντε δεξί κλικ στο αρχείο δέσμης ενεργειών VB που θέλετε να επεξεργαστείτε και επιλέξτε " Άνοιγμα με . " Επιλέξτε τον εκδότη του σεναρίου που θέλετε να χρησιμοποιήσετε . Εάν δεν έχετε μια εφαρμογή VBA script , μπορείτε επίσης να επεξεργαστείτε VBA με το Notepad . 2

Δημιουργήστε την εικόνα του υδατογραφήματος . Η εικόνα υδατογράφημα περιέχει ένα διαφανές φόντο , και μπορείτε να δημιουργήσετε οποιοδήποτε κείμενο για να δείξει στην εικόνα υδατογράφημα . Ο παρακάτω κώδικας δημιουργεί ένα « myimage " υδατογράφημα για εσάς :

wm.Draw ( " myimage " ) wm.SetPixel ( 100 , 100 , Color.Red )

Ο παραπάνω κώδικας δημιουργεί ένα υδατογράφημα που είναι 100 pixels ύψος από 100 pixels πλάτος , και το κείμενο υδατογράφημα είναι κόκκινο . Αντικαταστήστε το " myimage " με το κείμενο υδατογράφημα που θέλετε να εμφανίσετε .
Εικόνων 3

Συνδυάστε την εικόνα του υδατογραφήματος με BMP εικόνα σας . Ο κώδικας που ακολουθεί συνδυάζει τις δύο εικόνες για να δημιουργήσει μια νέα εικόνα για την ιστοσελίδα σας ή το έργο desktop :

Dim νέα Όπως Graphics = Graphics.FromImage ( " newimage.bmp " ) Dim παλιά Όπως Graphics = Graphics.FromImage ( " oldimage.bmp " ) graphic.DrawImage ( υδατογράφημα , νέα, παλιά )

Αντικαταστήστε το " oldimage.bmp » με την εικόνα που θέλετε να τοποθετήσετε το υδατογράφημα .
Η

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