Søg
Avatar billede zack Nybegynder
04. juni 2003 - 14:35 Der er 6 kommentarer og
1 løsning

Finpusning af makro

Jeg har denne makro:

Sub Makro2()
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
   
End Sub


Som fjerner alle billeder i det aktive ark. I stedet for dette, vil jeg gerne have den til at fjerne alle billeder i hele projektmappen. Hvordan får jeg den til det?
Avatar billede overchord Nybegynder
04. juni 2003 - 14:40 #1
Du skal have et for loop sat ind udenomkring for-loopet der sletter dine billeder:
intAntalArk = sheets.count

for i = 1 to intAntalArk
sheets(i).activate

indsaet dit eksisterende loop her

next i
Avatar billede zack Nybegynder
04. juni 2003 - 14:54 #2
Øhh.. ikke helt forstået... kan du skære det lidt mere ud i pap?

Evt. sæt det ind i min makro?
Avatar billede bak Forsker
04. juni 2003 - 16:03 #3
Sub Makro2()
Dim ws As Worksheet
Dim sh As Shape
For Each ws In ActiveWorkbook.Worksheets
    ws.Rows("12:67").ClearContents
    For Each sh In ws.Shapes
        If sh.Type = msoPicture Then sh.Delete
    Next
Next
End Sub
Avatar billede zack Nybegynder
10. juni 2003 - 08:12 #4
Makroen sletter alle formler også. Den skal kun slette billederne.
Avatar billede bak Forsker
10. juni 2003 - 10:00 #5
Selvfølgelig sletter den alle formler, det gør din egen jo også, så jeg troede at det var noget den skulle.
Denne sletter ingen formler.


Sub Makro2()
Dim ws As Worksheet
Dim sh As Shape
For Each ws In ActiveWorkbook.Worksheets
      For Each sh In ws.Shapes
        If sh.Type = msoPicture Then sh.Delete
    Next
Next
End Sub
Avatar billede zack Nybegynder
10. juni 2003 - 10:08 #6
Perfekt... mangler et svar...
Avatar billede bak Forsker
10. juni 2003 - 10:17 #7
kommer her :-)
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
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Flytte fra et projekt til andet Af hkprofil i Excel 1 11/11/202612:17 11/11/202613:08
Slet tal, bevar de underliggende formler Af bbkdk i Excel 7 11/11/202609:23 I dag 16:57
Måned og år på graf Af mort1 i Excel 4 31/10/202613:01 01/11/202614:13
VB, Lægge 2 celler sammen og skrive den i cellen ved side af Af MC3390 i Excel 9 23/09/202618:11 24/09/202611:16
Ændre tal i en celle Af xvid i Excel 1 04/09/202616:05 04/09/202616:54
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 08:39 Produktnøgle Af hkv i Office & Kontorpakker
I går 16:59 Bitlocker Af nico i Windows
12/1116:30 Wlan i windows 11 home Af dcedata1977 i Windows
11/1121:19 Irriterende ikon på proceslinjen Af ErikHg i Windows
11/1116:33 Kan man slippe af med "msn" ? Af Ikke-ekspert i Windows
White papers
Flere white papers »