---
title: "Rita bilder Excel med VB kod??"
type: "forum-thread"
url: "https://www.webforum.nu/amne/kontorsprogram/148141-rita-bilder-excel-med-vb-kod"
topic: "Kontorsprogram"
topic_url: "https://www.webforum.nu/amne/kontorsprogram"
author: "eddy1"
published: "2006-06-16T14:40:50.000Z"
updated: "2006-06-21T14:09:17.000Z"
replies: 2
views: 433
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/kontorsprogram/148141-rita-bilder-excel-med-vb-kod"
---

# Rita bilder Excel med VB kod??

## #1 — eddy1, 2006-06-16T14:40Z

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

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

## #2 — MindreVetande, 2006-06-19T09:45Z

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
```

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

## #3 — eddy1, 2006-06-21T14:09Z

Kanon tack

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

---

Tråden på webben: https://www.webforum.nu/amne/kontorsprogram/148141-rita-bilder-excel-med-vb-kod