necesito ayuda con esto miren
With Picture1
.Picture = LoadPicture("C:\xd.jpg")
.Font.Name = " Verdana"
.Font.Size = 7
.ForeColor = vbRed
.AutoRedraw = True
.CurrentX = 100
.CurrentY = 100
Picture1.Print " Hola Mundo "
.Picture = Picture1.Image
End With
SavePicture Picture1, "c:\ejemplo.jpg"
MsgBox " jpg salvado en c: ", vbInformation
ay alguna forma de que con un ciclo for cargue todas las imagenes de una carpeta y que 1 por 1 vaya escribiendoles ese mensaje y guardandolas ? me podrian dar una idea gracias e estado leyendo que se puede hacer con filesystemobject pero no entiendo agradezco la ayuda :D
o si alguien conoce una forma mas simple me la podria decir gracias
Bueno te dejo un codigo tu le haces algunas modificaciones
Dim fso, f, f1, fc
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("AquibaelnombredelaCarpeta")
Set fc = f.Files
For Each f1 in fc
msgbox f1.type
msgbox f1.name
msgbox f1.extension
Next
salu2 Flamer y dime si te sirve
gracias flamer asi quedo pero tengo una duda ay una forma de utilizar este for each como contador ejemplo en la vuelta primera se le vaya agregando un 1
SavePicture Picture1, "c:\ejemplo" & variable & ".jpg"
quedaria asi ejemplo1.jpg
Dim fso, f, f1, fc
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("C:\lol")
Set fc = f.Files
For Each f1 In fc
MsgBox f1.Name
With Picture1
.Picture = LoadPicture("C:\lol\" & f1.Name)
.Font.Name = " Verdana"
.Font.Size = 5
.ForeColor = vbRed
.AutoRedraw = True
.CurrentX = 100
.CurrentY = 100
Picture1.Print " Hola Mundo "
.Picture = Picture1.Image
End With
SavePicture Picture1, "c:\ejemplo.jpg"
MsgBox " Gráfico BMP salvado en c: ", vbInformation
Next
eso es sencillo solo agrega un contador y has que incremente 1 en cada vuelta.... no creo que no puedas hacer eso