redimensionar imagem

[xanburzum 169]

redimensionar sua imagem para qualquer tamanho de miniatura que deseja, mantendo relação da imagem.

Este código requer que você envie a imagem original com largura e altura.

 

Sub NovoTam(ByVal w, ByVal h, ByRef NewWidth, ByRef NewHeight, ByVal BoxSize)
		'If Width > Height Then Width = BoxSize e calcular Altura
		'Else Height > Width Then Height = BoxSize e calcular Largura
		if w > h Then
			NewWidth = BoxSize
			NewHeight = CLng((BoxSize * h) / w)
		Else
			NewHeight = BoxSize
			NewWidth = CLng((BoxSize * w) / h)
		End if
		
		'Se NewWidth> imagem largura e NewHeight> Altura da imagem 
	 'NewWidth = imagem largura e altura NewHeight = imagem
		
		if NewWidth > w AND NewHeight > h Then
			NewWidth = w
			NewHeight = h
		End if
		
		'If Width and Height < BoxSize Then Image = tamanho Orginal 
		
		if w < BoxSize AND h < BoxSize Then
			NewWidth = w
			NewHeight = h
		End if
	End Sub

[Ted k' 126]

Só faltou mostrar para a galera como aplicar isso!!

[Tb Web 0]

Fala galera.

 

Vi um efeito na pagina inicial do site da nestle. www.nestle.com.br

E quero fazer isso pra um clientes meu,

 

Alguem pode me ajudar?

 

Valeu!

[Patrique 0]

Cara qual efeito? e o que este efeito tem a ver com este tópico?