ae pessol boa tarde, eu gostaria de saber se alguem ja viu como fazer um redimensionmento nas imagens, tipo buscar uma imagem numa pasta e poder por campos do vb mudar o height eo width deles, colocando o tamanho que vc quer nos campos, sei que parece meioimopssivel mas sera que alguem ja viu? muito obrigado agradeço desde ja. falow

se o Objeto for tipo image é possível exemplo tenho dois botões um (+) almenta a imagem em 10% e o outro (-) diminui a imagem em 10%, utilizo ainda barra de rolagem:

Private Sub Bt_Aum_Zoom_Click()                                 (+)
    Image1.Height = Image1.Height * 1.1
    Image1.Width = Image1.Width * 1.1
    Bar_Ver.Max = Image1.Height
    Bar_Ver.Value = 0 - Image1.Top
    Bar_Hor.Max = Image1.Width
    Bar_Hor.Value = 0 - Image1.Left
End Sub

 

Private Sub Bt_Dim_Zoom_Click()                            (-)
    Image1.Height = Image1.Height * 0.9
    Image1.Width = Image1.Width * 0.9
    Bar_Ver.Max = Image1.Height
    Bar_Ver.Value = 0 - Image1.Top
    Bar_Hor.Max = Image1.Width
    Bar_Hor.Value = 0 - Image1.Left
End Sub

pessoal eu acho que me expessei mal liga nao quero tipo dimensionar a image no programa isso ai ta blz , eu queria tipo mudar o tamnho dela na real mesmo , tipo de uma foto na pasta se ela 800 x 600 o tamnho dela eu atraves do vb mudar pra 300 x233 por exemplo,  nao só no programa mas mudar o tamanho dela , se eu abrir ela em outro programa como o paint ela vai estar com esse tamanho porq eu mudei ele atraves do vb , porq em outros programas da pra mudar o tamanho da imagem e depois salvar , mas no vb nao sei coo fazer isso , era isso desculpa me expressei mal, obrigado desde ja

ArauloLin dessa forma a image vai se adeguar ao tamanho que eu desenho dentro do programa certo? mas fora dele tipo tenho um codigo que leva as txts do form e as images do form para o word , dentro do projeto elas ficam do tamnho que eu quero , mas ao exporta-las para o word elas dentro do word ficam do tamanho original delas que sairam da maquina digital, pra eu mudar o tamnho deas eu tenho que ir num programa editor de texto e dimensionar elas ai sim elas ficam do tamanho que eu quero querisa saber se pelo vb eu consigo alterar o tamanho original delas , nao só dimensionar a iamge dentro do programa , mas mudar o tamanho delas para sempre.......rssssssss eu faço asim pra exportar liga, nao sei se da tambem exportar as fotos ja com um tamanho especifico pra ficar la no word , vc por favor tem alguma lampada ai pra me dar?

 

  Dim rsFotos  As ADODB.Recordset
    Dim Word As Word.Application
    Dim cont As Integer

    Set Word = New Word.Application

    With Word
        .Visible = True                                 'habilita visualização do word
        .Documents.Add DocumentType:=wdNewBlankDocument
       
        'Tamanho da Fonte
        .Selection.Font.Size = "16"
        'Alinhamento do Texto  - Centralizado
        .Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
        'Negrito
        .Selection.Font.Bold = True
        'Sublinhado
        .Selection.Font.Underline = True
        .Selection.TypeText Text:=lblTitulonoWord.Caption
        'Sublinhado
        .Selection.Font.Underline = False
        'Negrito
        .Selection.Font.Bold = False
        'Enter
        .Selection.TypeParagraph
        'Alinhamento do Texto - Esquerda
        .Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
        'Tamanho da Fonte
        .Selection.Font.Size = "12"
        .Selection.TypeParagraph

         .Selection.TypeText Text:=Label56.Caption & ": " & txtAptAndar.Text
        .Selection.TypeParagraph
        .Selection.TypeText Text:=Label63.Caption & ": " & txtvista.Text
         
     
        'Inseri Imagens no Word
        Set rsFotos = cnBd.Execute("Select * from Tbl_imagens where PROD_APART = " & txtCodigo.Text)
        

no meu caso todas as Imagens da tbl Imagens que estao com um certo Codigo sao exportadas

 

        For cont = 1 To imgFoto.Count
            .Selection.InlineShapes.AddPicture filename:=rsFotos!IMG_CAM, LinkToFile:=False, SaveWithDocument:=True
            .Selection.TypeParagraph
            rsFotos.MoveNext
        Next cont
    End With
  
    Set rsFotos = Nothing
    Set Word = Nothing
    Else
    Exit Sub