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:
Saludos,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
Skipped
Edited by: Skipped