Avatar billede IrisLF Juniormester
16. juli 2014 - 13:08 Der er 2 kommentarer

HJÆÆÆLP - jeg skal centrere billeder i en celle i Excel.

Jeg har lavet en macro (se kode nedenfor) der sletter eksisterende billeder og lægger nyt op i en celle (ved valg fra en rullemenu). Disse billeder er ikke af samme størrelser.

Jeg har desperat brug for at kunne centrere disse billeder uanset deres størrelse (hvorfor jeg ikke kan beregne hvor i cellen de præcist skal ligge)

Nogen der kan hjælpe med lidt kode? :)


Sub AddPic()

On Error Resume Next

Dim Rng As Range

Application.ScreenUpdating = False


Dim myshape As Shape
 
  For Each myshape In ActiveSheet.Shapes

    If myshape.Type = 11 Then myshape.Delete

    Next myshape
 
  Range("C1").Select
 
    ActiveSheet.Pictures.Insert(Range("E21").Value).Select
   
Selection.Height = 150
Range("E16").Select
On Error GoTo 0
End Sub
Avatar billede finb Ekspert
16. juli 2014 - 15:54 #1
se afsnittet, der starter og slutter med WITH:

Sub AddPic()

On Error Resume Next
Dim Rng As Range
Application.ScreenUpdating = False
Dim myshape As Shape
 
  For Each myshape In ActiveSheet.Shapes
    If myshape.Type = 11 Then myshape.Delete
  Next myshape
 
  Range("C1").Select
 
  ActiveSheet.Pictures.Insert(Range("E21").Value).Select
   
Selection.Height = 150

    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With

Range("E16").Select
On Error GoTo 0
End Sub
Avatar billede IrisLF Juniormester
16. juli 2014 - 16:53 #2
det virker desværre ikke - men får heller ingen fejl?!

Billederne flytter sig bare ikke fra C1 top /left hjørnet.

Andre ideer? :)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester