Hecttor

Ow galere então estou começando agora com vba e precisava da ajuda de vocês para o seguinte eu preciso fazer um programa no word que: -insira todas as fotos de uma pasta(que o usuario q escolhe a pasta) uma seguida da outra( tipo da esquerda pra direita), num tamanho Height = 180/ .Width = 240 -que numere as fotos tipo foto 1 foto 2 foto 3 e quando eu delete uma foto no meio de outras ele reorganize o negocio e renumere as fotos bom aki vai o começo do meu código(obs o maior prob ta sendo pra colocar as fotos no prog , eu so muito nob e n to manjando direito )... valeu galere se possivel me ajudar eu agradeço muitooo Private Sub Inserefoto(textbox1 As String) If textbox1 = "" Then MsgBox "Nenhum arquivo encontrado." Exit Sub End If While MyFile <> "" Set imagem = Selection.InlineShapes.AddPicture(FileName:=textbox1, _ LinkToFile:=False, SaveWithDocument:=True) With imagem .Height = 180 .Width = 240 End With Wend End Sub Private Sub CommandButton1_Click() Inserefoto (textbox1) End Sub Private Sub CommandButton2_Click() Application.Quit End Sub Private Sub Image1_Click() End Sub Private Sub TextBox1_Change() End Sub Private Sub UserForm_Click() End Sub