Kopiera bild

[stealthx]

Hej

 

Jag har gjort en ListBox vars uppgift är att utifrån valt alternativ flytta ett område t ex. A1:J12 till ett annat område. I varje område som jag vill flytta finns en bild infogad bestående av en formel från MSEquation. Denna bild vill jag ju självklart flytta med men tyvärr sker inte detta.

Kan man flytta med bilder på det sättet jag önskar och isåfall hur kan jag lösa det?

 

Min kod för en av ListBoxarna syns nedan:

 

Private Sub Fall207ListBox_Click()

Dim MyRange As Range

Set MyRange = Range("M93")

 

If MyRange = "Fall207a" Then

Worksheets("Sheet1").Range("A1:J12").Copy

Worksheets("Steg 2").Range("A82:J93").PasteSpecial

 

ElseIf MyRange = "Fall207b" Then

Worksheets("Sheet1").Range("A13:J24").Copy

Worksheets("Steg 2").Range("A82:J93").PasteSpecial

 

ElseIf MyRange = "Fall207c" Then

Worksheets("Sheet1").Range("A25:J36").Copy

Worksheets("Steg 2").Range("A82:J93").PasteSpecial

End If

End Sub

 

[Monshi]

Den här något krystade koden kan nog lösa ditt predikament:

 

Worksheets("Blad1").Range("C11:G15").Copy

ActiveSheet.Paste Destination:=Worksheets("Blad2").Range("D20")

 

Då följer eventuell bild inom området C11:G15 med.

 

 

/T

 

Even when we know we´ll never find the answers, we have to keep on asking questions.