Den danner godt nok en thumpnail med en min højde på 50px, men "indholdet" hænger og svæver i toppen af thumpnailen. Hvis f.eks den først dannede thumpnail er 30px høj, vil jeg gerne have at den skal sidde midt i thumpnailen med 10px "luft" over og under!
Det kan måske lade sig gøre at bruge CropImage med negative koordinater. if ResizedY < 50 then Image.CropImage 0,-round((50-ResizedY)/2),50,50 Image.MaxY = 50 end if Kan ganske enkelt ikke huske om det kan lade sig gøre eller ej.
Ellers er du nødt til at gemme billedet, og læse det ind på et tomt billede.
if ResizedY < 50 then Image.MaxY = 50 Image.BackgroundColor = vbWhite Image.ClearImage Image.AddImage Image.FileName, 0, round((50-ResizedY)/2) Image.SaveImage end if
Jeg kan ikke få det til at virke med de negative koordinater, ligesom jeg ikke kan få det til at virke ved brug af samme komponent - men hvis jeg opretter en ny komponent spiller det ;-)
... Image.SaveImage
dim image1 Set Image1 = Server.CreateObject("AspImage.Image") Image1.PadSize = 0 if ResizedY < 150 then Image1.MaxY = 150 Image1.MaxX = 100 Image1.BackgroundColor = vbWhite Image1.AddImage Image.FileName, 0, round((150-ResizedY)/2) Image1.FileName = Image.FileName Image1.SaveImage end if
Set Image = nothing
Tak for hjælpen!
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.