Rita bilder Excel med VB kod??

2 svar · 421 visningar · startad av eddy1 16 juni 2006

eddy1Medlem sedan aug. 2001969 inlägg

Frågan16 juni 2006 14:40#1

Hej

Har en liten fundering...

Om jag har ett blad i excel med en bild på en vägg på, då skulle jag vilja skriva kod som läser ut mått från ett annat blad för att sedan i bladet med bilden sätta in en bild på en träregel och placera denna utefter angivna mått?

Så tanken är ju att bilden på träregeln ska vara en separat bild som ligger ovan på den stora bilden. så jag vill ju ha olika lager som jag flyttar omkring beroende på mått...

Känns som detta varit enkelt att fixa med lite html och javascript.. Men nu är allt baserat på excel och måste göras där...

Är det ens en rimlig tanke eller finns andra lösningar??

Mvh

MindreVetandeMedlem sedan okt. 2005371 inlägg

19 juni 2006 09:45#2

Lite att leka med, borde fungera som exempel.

Sub bildtest()

Dim Hojd As Double, Langd As Double
Dim VertikalForskjutning, HorisontalForskjutning As Double
Dim VertikalLage, HorisontalLage As Double
' antar att bakgrunden heter "picture 2"
' och träregeln "picture 3"

' Hämta värdena från ett annat blad
HorisontalForskjutning = ActiveWorkbook.Sheets("blad2").Range("A13").Value
VertikalForskjutning = ActiveWorkbook.Sheets("blad2").Range("A14").Value
Hojd = ActiveWorkbook.Sheets("blad2").Range("A15").Value
Langd = ActiveWorkbook.Sheets("blad2").Range("A16").Value

HorisontalLage = HorisontalForskjutning + ActiveSheet.Shapes("Picture 2").Left
VertikalLage = VertikalForskjutning + ActiveSheet.Shapes("Picture 2").Top

'   With ActiveWorkbook.Sheets("blad1").Shapes("Picture 3") 
    With ActiveSheet.Shapes("Picture 3")
        .LockAspectRatio = msoFalse
        .Left = HorisontalLage
        .Top = VertikalLage
        .Height = Hojd
        .Width = Langd
        .ZOrder (msoBringToFront)
        ' Du kan leka runt med Z-order, jag vet inte vad som är bäst
    End With
    
End Sub

eddy1Medlem sedan aug. 2001969 inlägg

21 juni 2006 14:09#3

Kanon tack