Just nu i M3-nätverket
Gå till innehåll
Verisa

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

Rekommendera Poster

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

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

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

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Skapa ett konto eller logga in för att kommentera

Du måste vara medlem för att kunna kommentera

Skapa ett konto

Skapa ett nytt konto på vårt forum. Det är lätt!

Registrera ett nytt konto

Logga in

Redan medlem? Logga in här.

Logga in nu



×
×
  • Skapa nytt...