'	Koll om bilden är för smal i förhållande till höjden.
					If Round(objImage.ImageWidth / objImage.ImageHeight, 2) < 0.77 Then

						'	Ändrar storlek, så att bredden blir rätt
						intWidth = intFinalWidth
						intHeight = ""
						objImg.Convert inPutFile, "-resize", intWidth & "x" & intHeight, inPutFile

						'	Kontrollera höjden på bilden. Ska delas med 26.4583 för att få fram den. Vem vet varför?
						Set newImage = loadpicture(inPutFile)
						newHeight = Round(newImage.Height/26.4583)
						Set newImage = Nothing

						'	Räka ut hur mycket som måste tas bort på upp- och nersidan av bilden. (Bildens verkliga höjd - slutgiltiga höjd) / 2. Delat med två för att den ska ta lika mycket från varje sida.
						intHeightToShave = (newHeight - intFinalHeight)/2

						'	Ta bort så mycket som behövs, och lägger den nya bilden i den riktiga mappen
						If intHeightToShave > 0 Then
							objImg.Convert inPutFile, "-shave", setVar(intHeightToShave&"", "", 0, "0x" & Round(intHeightToShave, 0)), inPutFile
						Else
							objImg.Convert inPutFile, inPutFile
						End If

					'	Bilden är för bred
					Else

						'	Ändrar storlek, så att höjden blir rätt
						objImg.Convert inPutFile, "-resize", intWidth & "x" & intHeight, inPutFile

						'	Kontrollera bredden på bilden. Ska delas med 26.4583 för att få fram den. Vem vet varför?
						Set newImage = loadpicture(inPutFile)
						newWidth = Round(newImage.Width/26.4583)
						Set newImage = Nothing

						'	Räka ut hur mycket som måste tas bort på varje sida av bilden. (Bildens verkliga bredd - slutgiltiga bredden) / 2. Delat med två för att den ska ta lika mycket från varje sida.
						intWidthToShave = (newWidth - intFinalWidth)/2

						'	Ta bort så mycket som behövs, och lägger den nya bilden i den riktiga mappen, om bilden är för bred
						If intWidthToShave > 0 Then
							objImg.Convert inPutFile, "-shave", setVar(intWidthToShave&"", "", 0, Round(intWidthToShave, 0)) &"x0", inPutFile
						Else
							objImg.Convert inPutFile, inPutFile
						End If
					End If

					'	Ändra upplösning på bilden till 300dpi
					objImg.Convert inPutFile, "-density", "300x300", outPutFile