|
|
Postada em 31/05/2006 19:47 hs
Tente assim: Picture2.AutoRedraw = True Picture2.PaintPicture Picture1, 0, 0, NovaLargura, NovaAltura SavePicture Picture2.Image, App.Path & "imagem.bmp" Veja Bem, o Picture2 você pode colocar como visible=false Faça um teste e verá que a imagem.bmp ficará com o tamanho derterminado por você em qualquer software que você abri-la
ALF-Sistemas (Araujo Lindolfo Filho) http://araujolin.vilabol.uol.com.br/index.htm
|
|
|
|
|
|
Korn
|
SAO PAULO
SP - BRASIL
|
|
Postada em 01/06/2006 11:10 hs
Pois sim , muito bom essa parada ai, com o picture deu certo mas o meu lance seria um image irmao e ta complicado deixa la do tamnho que eu preciso na hora de exportar ela eu pego o caminho delas no banco, mas gostaria de sabe se existe um jeito de deixa-las todas com um tamanho especifico, muito obrigado ate agora cara ja ajudou valew Set rsFotos = cnBd.Execute("Select * from Tbl_imagens where PROD_AREA = " & txtCodigo.Text)
For cont = 1 To imgFoto.Count
.Selection.InlineShapes.AddPicture filename:=rsFotos!IMG_CAM, LinkToFile:=False, SaveWithDocument:=True 'IMG_CAM (codigo da tbl Imagens)
.Selection.TypeParagraph
rsFotos.MoveNext
Next cont
End With
Jesus Cristo é O Senhor!!!
|
|
|
|
Korn
|
SAO PAULO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 02/06/2006 15:37 hs
Jesus Cristo é O Senhor!!!
|
|
|
|
Korn
|
SAO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 07/06/2006 10:16 hs
Nao esta funcionando pessoal, alguem me da uma ideia
Jesus Cristo é O Senhor!!!
|
|
|
|
