Πώς να εισάγετε εικόνες σε VBS αρχεία

Το πρόγραμμα βάσης δεδομένων της Microsoft Access επιτρέπει στους χρήστες να εμφανίσετε τις εικόνες στις σελίδες έκθεση των δεδομένων τους . Εάν έχετε πολλές εικόνες που σχετίζονται με την έκθεση , ή αν καθένα από τα αρχεία εικόνας είναι μεγάλα , το μέγεθος της βάσης δεδομένων της Access μπορεί να αυξηθεί σημαντικά . Είναι πιο πρακτική σε τέτοιες περιπτώσεις για να αποθηκεύσετε τις φωτογραφίες σε VBS σενάρια τρέχουν στη βάση δεδομένων σας . Η εισαγωγή των εικόνων σε αρχεία VBS καθιστά την εκτέλεση των λειτουργιών της βάσης δεδομένων Access γρηγορότερα . Οδηγίες
Η

1 Κάντε κλικ στο κουμπί " Έναρξη " των Windows , και στη συνέχεια κάντε κλικ στο 2

Εισάγετε τον παρακάτω κωδικό στο ανοιχτό παράθυρο " Visual Basic for Application . " :

Sub PictureIntoComment ( )

« www.contextures.com \\ xlcomments03.html

Dim ch Όπως ChartObject

Dim dWidth As Double
< p> Dim dHeight As Double

Dim ws Όπως Φύλλο

Dim SName Όπως String Dim

cmt Όπως Σχόλιο

Dim Späth As String
< p> Dim sFile Όπως String Dim

RNG Όπως Σειρά

Ορισμός ws = ActiveSheet

Set rng = ActiveCell

Spath = ThisWorkbook.Path & " \\ "

SNAME = InputBox ( " όνομα για το αρχείο εικόνας ( χωρίς επέκταση ) " , " φάκελος

Name " )

Εάν SNAME = " " τότε SNAME = " Picture_ " & Format ( Date ", χχχχμμηη " )

sFile = Spath & SName & " . gif "

dWidth = Selection.Width

dHeight = Selection.Height

Selection.Cut

Set ch = ws.ChartObjects.Add ( Αριστερά: = rng.Left , Top : = rng.Top , _

Πλάτος : = dWidth , Ύψος : = dHeight )

ch.Chart.Paste

rng.Activate

ch.Chart.Export sFile

ch.Delete

Set cmt = rng.AddComment

cmt.Text Κείμενο : . . = " "

Με cmt.Shape

Fill.UserPicture sFile

Πλάτος = dWidth

. Ύψος = dHeight

End With

End Sub
εικόνων 3

Κάντε κλικ στο " Αποθήκευση". Επιλέξτε ένα όνομα για τη δέσμη ενεργειών VBS σας , και στη συνέχεια κάντε κλικ στο κουμπί "OK " για να εισάγετε τις φωτογραφίες σας στο αρχείο VBS .
Η
εικόνων