Come aggiungere una filigrana in BMP con VBA

May 9

Visual Basic, Applications permette di creare applicazioni per Microsoft Office. Se si dispone di un'immagine che si desidera filigrana automaticamente, è possibile utilizzare il linguaggio VB di filigrana l'immagine BMP con il tuo nome o il nome di dominio. I negozi filigrana a un file di immagine separato combinato l'immagine BMP con, in modo da poter distribuire l'immagine per proteggerlo dal furto.

istruzione

1 Fare clic destro sul file di script VB che si desidera modificare e selezionare "Apri con". Selezionare l'editor di script che si desidera utilizzare. Se non si dispone di un'applicazione di script VBA, è anche possibile modificare VBA con il blocco note.

2 Creare l'immagine filigrana. L'immagine della filigrana contiene uno sfondo trasparente, ed è possibile creare qualsiasi testo per mostrare l'immagine della filigrana. Il codice seguente crea una filigrana "myimage" per voi:

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

Il codice precedente crea una filigrana che è di 100 pixel di altezza per 100 pixel di larghezza, e il testo della filigrana è di colore rosso. Sostituire "myimage" con il testo della filigrana che si desidera visualizzare.

3 Unire l'immagine filigrana l'immagine BMP con. Il codice seguente combina le due immagini per creare una nuova immagine per il tuo sito o progetto desktop:

Dim nuova Come Graphics = Graphics.FromImage ( "newimage.bmp")
Dim vecchio come grafica = Graphics.FromImage ( "oldimage.bmp")

graphic.DrawImage(watermark, new, old)

Sostituire "oldimage.bmp" con l'immagine che si desidera filigrana.

4 Salvare il file VBA e fare doppio clic sul file sul computer. Lo script viene eseguito e filigrane vostra immagine, in modo da poter testare le funzionalità del nuovo script VBA.