---
title: "aspSmartImage - ändra storlek på bild"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/108551-aspsmartimage-ändra-storlek-på-bild"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Eclipse"
published: "2004-08-05T11:51:29.000Z"
updated: "2004-08-19T07:37:40.000Z"
replies: 9
views: 346
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/108551-aspsmartimage-ändra-storlek-på-bild"
---

# aspSmartImage - ändra storlek på bild

## #1 — Eclipse, 2004-08-05T11:51Z

I exemplet står det:
oSmartImage.Resample oSmartImage.OriginalWidth / 2,0

men jag vill inte dela med två, jag vill att bilden ska vara 150 pixlar bred oavsett originalstorleken.

Jag testande
oSmartImage.Resample 150

samt lite varianter men det fungerade givetvis inte...

"it's easy when you know how" - Spocke

Permalänk: https://www.webforum.nu/p/108551

## #2 — Observer, 2004-08-05T12:24Z

Jag kör så här och det funkar:

```
		objImage.Resample Cint(iNewXSize),Cint(iNewYSize)
		objImage.Quality=80
		objImage.Sharpen
                     objImage.SaveFile(psNewFile)
```

Permalänk: https://www.webforum.nu/p/1402228

## #3 — Eclipse, 2004-08-06T08:00Z

OK... ja, det fungerar men det var inte riktigt så jag menade!

I ditt fall förutsätts att alla bilder har samma proportioner. Jag vill att bilden blir 150 pixlar bred och sen höjden blir vad den blir, proportionellt.

Permalänk: https://www.webforum.nu/p/1402724

## #4 — Eclipse, 2004-08-06T08:01Z

Typ så här... (fungerar ej)

oSmartImage.Resample cInt(150), \*

Permalänk: https://www.webforum.nu/p/1402725

## #5 — @nders, 2004-08-06T08:03Z

Om du måste ange båda värdena, så kan du ju alltid räkna ut vad det andra värdet ska bli?

mvh

Permalänk: https://www.webforum.nu/p/1402726

## #6 — Eclipse, 2004-08-06T08:06Z

1\. Exemplet från boken:
oSmartImage.Resample oSmartImage.OriginalWidth / 2,0

2\. Min variant: = procentuellt...
newWidht = 150 / oSmartImage.OriginalWidth
oSmartImage.Resample oSmartImage.OriginalWidth / newWidht

Permalänk: https://www.webforum.nu/p/1402729

## #7 — @nders, 2004-08-06T08:10Z

Man kanske kan prova något sånt här:

```
intNewWidth = 150
intNewHeight = Cint(intNewWidth/oSmartImage.OriginalWidth) * oSmartImage.OriginalHeight
oSmartImage.Resample intNewWidth, intNewHeight
```

Kanske?

Permalänk: https://www.webforum.nu/p/1402734

## #8 — Eclipse, 2004-08-06T08:39Z

Nej, jag hajjar nada!

Med din kod blir värdena 150, 0 och det fungerar inte.

intNewHeight = (intNewWidth/oSmartImage.OriginalWidth) \* oSmartImage.OriginalHeight
oSmartImage.Resample intNewWidth, Cint(intNewHeight)

Om man skriver så här blir värdena 150, 67 och det fungerar **fortfarande** inte...

Om jag startar om min dator kanske det fungerar bättre? Eller tar en symbolisk rökpaus....??

Permalänk: https://www.webforum.nu/p/1402750

## #9 — Cmart, 2004-08-18T18:08Z

Så här gör jag:

height = oSmartImg.OriginalWidth / 150
oSmartImg.Resample 150, oSmartImg.Originalheight / height

Du delar originalwidth med din tänkta width och får på så sätt
multipeln som höjden skall delas med.

Detta medför dock att bilden kommer förstoras om bredden är mindre än 150, men det  torde kunna lösas med en enkel if-sats om man så önskar.

Permalänk: https://www.webforum.nu/p/1415977

## #10 — Palle, 2004-08-19T07:37Z

För att bibehålla proportionen på höjden använder jag följande kod och det fungerar klockrent: 

```
[red]Dim oImg
Set oImg = Server.CreateObject("aspSmartImage.SmartImage")
	oImg.OpenFile("myImage.jpg")
	oImg.Resample 150,0
	oImg.Quality = 100
	oImg.SaveFile("myImage.jpg")
Set oImg = Nothing[/red]
```

Permalänk: https://www.webforum.nu/p/1416267

---

Tråden på webben: https://www.webforum.nu/amne/asp/108551-aspsmartimage-ändra-storlek-på-bild