Styra höjden på objekt genom cellvärde?

[Verisa]

Hej!

 

Jag skulle som rubriken antyder vilja stryra höjden på ett objekt (bild) med hjälp av ett cellvärde. Ändras cellvärdet så skall även höjden på objektet ändras, någon som vet hur man kan lösa detta? (medveten om att skalan höjd kontra bredd kan bli konstig med det spelar ingen roll).

 

MVH Veritas

[Monshi]

Om jag förstår dig rätt har du en bild på ett blad och när användaren skriver in ett värde i en viss cell vill du att bilden ska ändras till den storlek som gavs i cellen.

 

 

Okej. Med lite VBA-kod går det.

Rekommendation.

Låt användaren mata in värde i cell och sedan trycka på knapp för att uppdatera bilden.

 

Säg att användaren skriver in värdet i cell A1, att bilden du vill ändra heter minBild, att du har infogat en CommanButton från VBA-kontrollerna. Dubbelklicka på knappen i designläge och du kommer till funktionen jag använt nedan

 

Private Sub CommandButton1_Click()
With Me
	If .Range("a1") > 0 Then
	.Shapes("minBild").Height = .Range("a1")
	End If
End With
End Sub

Förklaring

Me - referens till bladet koden är skriven på.

Shapes - alla objekt på bladet, bilder, knappar och liknande.

 

Ett exempel. Det går även att använda formulär-knappar eller bilder med makro kopplat till dem. Samma kod kan användas men byt referensen Me mot någon annan referens till bladet i fråga.

 

Samt, flyttar tråden till VBA