Nwlapcug.com


Come aggiungere una filigrana a BMP con VBA

Visual Basic Applications Edition consente di creare applicazioni per Microsoft Office. Se avete un'immagine che si desidera automaticamente filigrana, è possibile utilizzare il linguaggio VB filigrana l'immagine BMP con il nome o il nome di dominio. La filigrana memorizza in un file di immagine separata combinato con l'immagine BMP, pertanto è possibile distribuire l'immagine per proteggerlo dal furto.

Istruzioni

1

Pulsante destro del mouse il file di script VB che si desidera modificare e selezionare "Apri con". Selezionare l'editor di script che si desidera utilizzare. Se non avete un'applicazione di script VBA, è possibile modificare anche VBA con il blocco note.

2

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

IMP Draw("myimage")
IMP SetPixel (100, 100, color. Red)

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

3

Combinare l'immagine di filigrana con la vostra immagine BMP. Il seguente codice combina le due immagini per creare una nuova immagine per il tuo sito Web o progetto desktop:

Dim nuovo As Graphics = Graphics.FromImage("newimage.bmp")
Dim vecchio As Graphics = 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 doppio clic sul file sul tuo computer. Lo script viene eseguito e filigrane di immagine, quindi è possibile testare la funzionalità dello script VBA nuovo.