Πώς να εισάγετε εικόνες σε 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

Dim dHeight As Double

Dim ws Όπως Φύλλο

Dim SName Όπως String Dim

cmt Όπως Σχόλιο

Dim Späth As String

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 .
Η
εικόνων