Hola todos:

Fui preguntando en el foro como hacer esto y gracias a que me dijeron como cortar un trozo de la imagen hice un codigo para fraccionar una imagen grande en varias pequeñas de igual tamaño (cuantas se desee)

Notas: Trate de poner la explicacion de cada linea de codigo

Aqui el codigo:

Código:

Private Sub Trozar(ByVal TrozosHoriz As Integer, _
 ByVal TrozosVert As Integer, _
 PicEntera As PictureBox, _
 PicTrozos As PictureBox, _
 ByVal PathImgEnt As String, _
 ByVal PathTrozos As String)

Dim j As Integer

Dim anchopieza As Integer
Dim altopieza As Integer
Dim vertical As Integer
Dim horizontal As Integer
Dim ubicaciontrozos As String

 ubicaciontrozos = PathTrozos

 'para el tamano de cada pieza
 anchopieza = PicEntera.Width \ TrozosHoriz
 altopieza = PicEntera.Height \ TrozosVert
 
 'ajusta el pic de destino al tamano de la imagen
 PicTrozos.Height = altopieza
 PicTrozos.Width = anchopieza
 
 'las rutinas para las piezas a lo ancho y a lo alto
 For vertical = 0 To (TrozosVert - 1)
 For horizontal = 0 To (TrozosHoriz - 1)
 
 'conserva los graficos
 PicEntera.AutoRedraw = True
 PicTrozos.AutoRedraw = True
 
 ' Limpia - Borra los dos picture
 PicTrozos.Cls
 PicEntera.Cls
 
 'establece la ubicacion de las piezas a extraer
 PicTrozos.PaintPicture PicEntera.Picture, 0, 0, , , horizontal * anchopieza, vertical * altopieza, anchopieza, altopieza
 
 'prepara para los nombres de las imagenes extraidas
 j = j + 1
 
 'guarda cada pieza extraida
 SavePicture PicTrozos.Image, ubicaciontrozos & Format$(j, "0#") & ".jpg"
 
 'termina la rutina de las piezas a a lo ancho
 Next horizontal
 
 'termina la rutina de las piezas a a lo alto
 Next vertical
End Sub

Saludos,
Skipped

Edited by: Skipped