Forfatter |
Emne Søg Emne funktioner
|
Urup
Bronze bruger
Medlem: 11.Feb.2014
Land: Danmark
Status: Offline
Point: 35
|
Emne: Slette billeder med en makro Sendt: 17.Mar.2018 kl. 18:27 |
Hvordan sletter jeg billeder med en macroi Excel?
Jeg har en ark med 6 billeder som er samme sted hver gang men ikke de samme billeder.
|
|
|
|
|
excelent
Guld bruger
Medlem: 12.Apr.2011
Land: DK
Status: Offline
Point: 2171
|
Sendt: 17.Mar.2018 kl. 21:08 |
Test på en kopi
Sub SletBilleder()
ActiveSheet.DrawingObjects.Select For Each c In Selection If (TypeName(c)) = "Picture" Then c.Delete Next [A1].Select
End Sub
|
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!
|
|
Urup
Bronze bruger
Medlem: 11.Feb.2014
Land: Danmark
Status: Offline
Point: 35
|
Sendt: 17.Mar.2018 kl. 21:27 |
1000 1000 tak
det er lige som det skal være. Har i samme makro lavet så den sætter 6 nye billeder ind
Tak du er en dygtig mand/ kvinde
|
|
Urup
Bronze bruger
Medlem: 11.Feb.2014
Land: Danmark
Status: Offline
Point: 35
|
Sendt: 17.Mar.2018 kl. 21:32 |
Lige en tillægs spørgsmål
Kan man lave så det kun er billeder inde for en gældende område s den søger og sletter ??? ( A1:J21)
|
|
excelent
Guld bruger
Medlem: 12.Apr.2011
Land: DK
Status: Offline
Point: 2171
|
Sendt: 17.Mar.2018 kl. 21:50 |
prøv :
Sub SletBilleder()
ActiveSheet.DrawingObjects.Select For Each c In Selection If c.Top <= Range("J21").Top And c.Left <= Range("J21").Left Then If (TypeName(c)) = "Picture" Then c.Delete End If Next [A1].Select
End Sub
|
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!
|
|
Urup
Bronze bruger
Medlem: 11.Feb.2014
Land: Danmark
Status: Offline
Point: 35
|
Sendt: 17.Mar.2018 kl. 22:00 |
Hej
Den vælger desværre stadig hele siden
|
|
excelent
Guld bruger
Medlem: 12.Apr.2011
Land: DK
Status: Offline
Point: 2171
|
Sendt: 17.Mar.2018 kl. 22:05 |
ikke i den fil du oploadede har du en anden jeg kan teste på ?
|
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!
|
|
Urup
Bronze bruger
Medlem: 11.Feb.2014
Land: Danmark
Status: Offline
Point: 35
|
Sendt: 17.Mar.2018 kl. 22:54 |
|
|
excelent
Guld bruger
Medlem: 12.Apr.2011
Land: DK
Status: Offline
Point: 2171
|
Sendt: 17.Mar.2018 kl. 23:41 |
Jeg kan se 5 billeder, som alle er inden for A1:J21 og bliver derfor slettet. Hvor er der ellers billeder som du mener bliver slettet ?
|
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!
|
|
Urup
Bronze bruger
Medlem: 11.Feb.2014
Land: Danmark
Status: Offline
Point: 35
|
Sendt: 18.Mar.2018 kl. 09:04 |
Godmorgen
Der er 5 billeder på det ark jeg sendte dig og ikke andre. Det er et bordkort der på på en 6 persons bord på en efterskole med 200 elever som der bliver andre nogle gange hver år. Pt er der kun billeder ar de 5-6 personer men jeg ved der kommer med på med tiden.....logo eller andet Allan
|
|
excelent
Guld bruger
Medlem: 12.Apr.2011
Land: DK
Status: Offline
Point: 2171
|
Sendt: 18.Mar.2018 kl. 09:48 |
Jo men jeg er allerede på DEFCON 1 og fingeren på den røde knap :-)
Så hvis du i stedet for sender en fil med billeder der ikke skal slettes men du mener koden sletter så havde jeg mulighed for at tilrette koden.
|
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!
|
|
Urup
Bronze bruger
Medlem: 11.Feb.2014
Land: Danmark
Status: Offline
Point: 35
|
Sendt: 18.Mar.2018 kl. 10:03 |
Hej
Beklager hvis jeg ikke har uddybet mig ordenligt. Jeg har et ark med 6 billeder som bruges til bord kort so eleverne kan se hvor de skal sidder og så vi ansatte kan se om det er de rigtige der sidder ved bordet. 4 gange om året skifter de alle plads og jeg skal lave 36 ark om. pt er det de 6 billeder der skal skiftes som fint fungere med koder jeg har fået fra dig og til at indsætte fra en anden. Efter opgaven er løst opdager jeg det kan give en problem hvis der er et andet stemnings billede på samme ark som ikke skal slettes. Derfor ønsker jeg at den kun slettet billeder A1:J10 .
Sub IndsaetBilleder()
ActiveSheet.DrawingObjects.Select For Each c In Selection If c.Top <= Range("J21").Top And c.Left <= Range("J21").Left Then If (TypeName(c)) = "Picture" Then c.Delete End If Next [A1].Select
On Error Resume Next For Each c In Range("p4,p19,s4,s19,v4,v19").Cells
c.Offset(0, -13).Select ActiveSheet.Pictures.Insert("C:\billeder\" & c.Value & ".jpg").Select
Selection.ShapeRange.LockAspectRatio = msoTrue 'bibeholder forholdet mellem højde og bredde på billedet Selection.ShapeRange.Height = 120 'justeres så billedet får den rigtige størrelse
Next c
End Sub
|
|
excelent
Guld bruger
Medlem: 12.Apr.2011
Land: DK
Status: Offline
Point: 2171
|
Sendt: 18.Mar.2018 kl. 10:12 |
Nu skriver du : Derfor ønsker jeg at den kun slettet billeder A1:J10 Men du startede med : Kan man lave så det kun er billeder inde for en gældende område s den søger og sletter ??? ( A1:J21)
Så hvis det er A1:J10 i stedet for A1:J21 så :
If c.Top <= Range("J10").Top And c.Left <= Range("J10").Left Then
|
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!
|
|