04. februar 2003 - 15:36Der er
17 kommentarer og 1 løsning
Automatisk fjerning af billede
Jeg har lavet en makro, som fjerner alle dataene i et regneark. Mit billede bliver dog hængende. Det er jeg nødt til at markere for at fjerne. Herved bliver makroen således:
Sub Makro3() ' ' Makro3 Makro ' Makro indspillet 04-02-2003 af Jesper Knudsen '
' Rows("12:67").Select Selection.ClearContents ActiveSheet.Shapes("Picture 103").Select Selection.Delete Range("C4").Select End Sub
Porblemet er bare, at den skriver "Picture 103". Dette "navn" ændrer sig fra gang til gang. Kan man ikke lave makroen således, at den fjererne billedet, ligegyldigt hvad den hedder?
Sub Makro3() ' ' Makro3 Makro ' Makro indspillet 04-02-2003 af Jesper Knudsen '
Dim sh As Shape Rows("12:67").Select Selection.ClearContents For Each sh In ActiveSheet.Shapes sh.Delete Next Selection.Delete Range("C4").Select End Sub
Sub Makro1() Rows("12:67").Select Selection.ClearContents For Each sh In ActiveSheet.Shapes If sh.Type = msoPicture Then sh.Delete End If Next Range("C4").Select
Endnu et forslag der kun fjerner billeder i område 12:67
Sub Makro3() ' ' Makro3 Makro ' Makro indspillet 04-02-2003 af Jesper Knudsen '
Dim sh As Shape Rows("12:67").Select Selection.ClearContents For Each sh In ActiveSheet.Shapes If sh.Top > Selection.Top And _ sh.Top < Cells(Selection.Rows.Count + Selection.Row, 1).Top And _ sh.Type = msoPicture _ Then sh.Delete Next Selection.Delete Range("C4").Select End Sub
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.
