Just nu i M3-nätverket
Gå till innehåll
Rockrulle

LÖST Makro som infogar bilder i kommentarer

Startad av Rockrulle, i Kalkylprogram - Excel m fl

Rekommendera Poster

Rockrulle    0

Rockrulle
Postad

Jag har ett Excel ark där jag tänkte infoga kommentarer med bilder till väldigt många celler med text. Varje cell ska ha en egen bild i kommentarsrutan.

Jag vet hur man infogar en bild i en kommentar men går det att göra ett makro som skapar kommentaren och går till mappen där jag har alla bilder sparade

så jag bara kan välja rätt bild?

 

 

 

 

 

Dela detta inlägg

Länk till inlägg
Dela på andra webbplatser

Skapa ett konto eller logga in för att kommentera

Du måste vara medlem för att kunna kommentera

Skapa ett konto

Skapa ett nytt konto på vårt forum. Det är lätt!

Registrera ett nytt konto

Logga in

Redan medlem? Logga in här.

Logga in nu
Gå till ämneslista


  • Liknande Innehåll

    • MvS
      Excel exportera separata kolumner till txt-fil
      Av MvS
      Jag har en medlemsmatrikel på ett Excel-ark där jag behöver en funktion (ett Makro) som kan exportera medlemmars namn tillsammans med respektive epost-adress till en text-fil. 
      Har kollat runt men inga exempel jag stött på verkar fungera så jag undrar nu om det finns någon vänlig själ som kan hjälpa mig?
      Jag vill kunna exportera innehållet i kolumn "A" (Namn) och kolumn "J" (E-postadress) men bara från de rader där medlemmen har en epostadress. Utdata på textfilen bör vara tabbavgränsat men det  är inget absolut måste...
      Pls help...
       
    • berikolssson
      "Makron har inaktiverats." dokument utan makro
      Av berikolssson
      Någon som har koll, jag har ett dokument som när jag öppnar det får en gul rand längst upp med texten Säkerhetsvarning Makron har inaktiverats. Bredvid detta meddelande finns en knapp med texten Aktivera innehåll. Jag kan dock inte se att det finns något makro i dokumentet. Finns det någon som har koll på vad som kan trigga detta meddelande och finns det något enkelt sätt identifiera den specifika källan? Är det riskfritt att aktivera innehåll?
       
      Jag har skannat filen med antivirus utan att något hittades.
      Wordversionen är Word 2010

    • VSI7
      Upprepa Makro
      Av VSI7
      Hej!
       
      Jag har skrivit ett makro som tar data från ett "uträkningsdata blad" flyttar och tar bort värdena i en kolumn där och lägger dem i ett "beräknings blad" och skulle vilja att de upprepades tills kolumnen i bladet "uträkningsdata" är tom på data. då vill jag att upprepningen avslutas.
       
      sen undrar jag även om de går att städa något i makrot. jag är självlärd på detta och vill gärna lära mig mer!
      Sub område13() ' ' område13 Makro ' ' Range("C1").Select Sheets("13").Select Columns("E:E").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Range("E1").Select ActiveCell.FormulaR1C1 = "=Formler!R[1]C[-3]" Range("E89").Select ActiveCell.FormulaR1C1 = "=Formler!R[-87]C[13]" Range("E90").Select ActiveCell.FormulaR1C1 = "=Formler!R[-87]C[13]" Range("E94").Select ActiveCell.FormulaR1C1 = "=Formler!R[-83]C[6]" Range("E96").Select ActiveCell.FormulaR1C1 = "=Formler!R[-85]C[8]" Range("E98").Select ActiveCell.FormulaR1C1 = "=Formler!R[-87]C[10]" Range("E101").Select ActiveCell.FormulaR1C1 = "=Formler!R[-78]C[3]" Range("E110").Select ActiveCell.FormulaR1C1 = "=Formler!R[-86]C[3]" Range("E111").Select ActiveCell.FormulaR1C1 = "=Formler!R[-86]C[3]" Range("E112").Select ActiveCell.FormulaR1C1 = "=Formler!R[-92]C[3]" Range("E115").Select ActiveCell.FormulaR1C1 = "=Formler!R[-91]C[6]" Range("E116").Select ActiveCell.FormulaR1C1 = "=Formler!R[-91]C[6]" Range("E117").Select ActiveCell.FormulaR1C1 = "=Formler!R[-91]C[6]" Range("E120").Select ActiveCell.FormulaR1C1 = "=Formler!R[-110]C[10]" Range("E127").Select ActiveCell.FormulaR1C1 = "=Formler!R[-119]C[3]" Range("E129").Select ActiveCell.FormulaR1C1 = "=Formler!R[-117]C[6]" Range("E131").Select ActiveCell.FormulaR1C1 = "=Formler!R[-123]C[8]" Range("E134").Select ActiveCell.FormulaR1C1 = "=Formler!R[-126]C[10]" Range("E138").Select ActiveCell.FormulaR1C1 = "=Formler!R[-125]C[3]" Range("E141").Select ActiveCell.FormulaR1C1 = "=Formler!R[-128]C[6]" Range("E145").Select ActiveCell.FormulaR1C1 = "=Formler!R[-132]C[8]" Range("E148").Select ActiveCell.FormulaR1C1 = "=Formler!R[-135]C[10]" Range("E151").Select ActiveCell.FormulaR1C1 = "=Formler!R[-137]C[3]" Range("E152").Select ActiveCell.FormulaR1C1 = "=Formler!R[-137]C[3]" Range("E155").Select ActiveCell.FormulaR1C1 = "=Formler!R[-141]C[6]" Range("E163").Select ActiveCell.FormulaR1C1 = "=Formler!R[-136]C[3]" Range("E167").Select ActiveCell.FormulaR1C1 = "=Formler!R[-151]C[3]" Range("E170").Select ActiveCell.FormulaR1C1 = "=Formler!R[-153]C[3]" Range("E172").Select ActiveCell.FormulaR1C1 = "=Formler!R[-144]C[3]" Range("E175").Select ActiveCell.FormulaR1C1 = "=Formler!R[-144]C[3]" Range("E176").Select ActiveCell.FormulaR1C1 = "=Formler!R[-144]C[3]" Range("E189").Select ActiveCell.FormulaR1C1 = "=Formler!R[-156]C[3]" Range("E190").Select ActiveCell.FormulaR1C1 = "=Formler!R[-156]C[3]" Range("E191").Select ActiveCell.FormulaR1C1 = "=Formler!R[-156]C[3]" Range("E192").Select ActiveCell.FormulaR1C1 = "=Formler!R[-156]C[3]" Range("E193").Select ActiveCell.FormulaR1C1 = "=Formler!R[-156]C[3]" Range("E194").Select ActiveCell.FormulaR1C1 = "=Formler!R[-156]C[3]" Range("E195").Select ActiveCell.FormulaR1C1 = "=Formler!R[-156]C[3]" Range("E196").Select ActiveCell.FormulaR1C1 = "=Formler!R[-156]C[3]" Range("E199").Select ActiveCell.FormulaR1C1 = "=Formler!R[-158]C[3]" Range("E200").Select ActiveCell.FormulaR1C1 = "=Formler!R[-158]C[3]" Range("E201").Select ActiveCell.FormulaR1C1 = "=Formler!R[-158]C[3]" Range("E203").Select ActiveCell.FormulaR1C1 = "=Formler!R[-175]C[6]" Range("E206").Select ActiveCell.FormulaR1C1 = "=Formler!R[-187]C[8]" Range("E227").Select ActiveCell.FormulaR1C1 = "=Formler!R[-182]C[3]" Range("E229").Select ActiveCell.FormulaR1C1 = "=Formler!R[-183]C[3]" Range("E235").Select ActiveCell.FormulaR1C1 = "=Formler!R[-186]C[3]" Range("E236").Select ActiveCell.FormulaR1C1 = "=Formler!R[-186]C[3]" Range("E237").Select ActiveCell.FormulaR1C1 = "=Formler!R[-186]C[3]" Range("E238").Select ActiveCell.FormulaR1C1 = "=Formler!R[-186]C[3]" Range("E239").Select ActiveCell.FormulaR1C1 = "=Formler!R[-186]C[3]" Range("E241").Select ActiveCell.FormulaR1C1 = "=Formler!R[-188]C[3]" Range("E249").Select ActiveCell.FormulaR1C1 = "=Formler!R[-232]C[10]" Range("E252").Select ActiveCell.FormulaR1C1 = "=Formler!R[-234]C[10]" Range("E255").Select ActiveCell.FormulaR1C1 = "=Formler!R[-236]C[10]" Range("E256").Select ActiveCell.FormulaR1C1 = "=Formler!R[-236]C[10]" Range("E257").Select ActiveCell.FormulaR1C1 = "=Formler!R[-236]C[10]" Range("E258").Select ActiveCell.FormulaR1C1 = "=Formler!R[-236]C[10]" Range("E264").Select ActiveCell.FormulaR1C1 = "=Formler!R[-247]C[10]" Columns("e:e").Select Selection.Copy Columns("f:f").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Columns("e:e").Select Application.CutCopyMode = False Selection.ClearContents Columns("C:C").Select Selection.Copy Columns("E:E").Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Range("C88").Select ActiveCell.FormulaR1C1 = "=SUM(RC[3]:RC[620])" Range("C88").Select Selection.AutoFill Destination:=Range("C88:C177"), Type:=xlFillDefault Range("C88:C177").Select Range("C187").Select ActiveCell.FormulaR1C1 = "=SUM(RC[3]:RC[620])" Range("C187").Select Selection.AutoFill Destination:=Range("C187:C299"), Type:=xlFillDefault Range("C187:C299").Select Range("C1").Select Sheets("Beräkning").Select Range("C1").Select Sheets("Uträkningsdata").Select Range("D1:D49").Select Selection.Copy Sheets("Beräkning").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Uträkningsdata").Select Columns("C:C").Select Application.CutCopyMode = False Selection.Delete Shift:=xlToLeft Sheets("Beräkning").Select Range("C1").Select End Sub
    • Tom Düring
      Skapa bankfil från Excel
      Av Tom Düring
      Hej,
      Mitt problem är att skapa en textfil från ett Excel-ark där man först har en "öppningsrad" med visst innehåll och därefter 3 st rader rader som hänger samman, där data hämtas från en tabell och läggs in i respektive rad i en viss förutbestämd position ("fält"). I vissa fall skall "fältet" fyllas ut med nollor framför värdet. Varje rad är alltid 180 tecken lång och blanktecken förekommer  för att fälten skall komma i rätt position.
       
      När en post är behandlad går man till nästa (=rad) och gör om proceduren.
       
      Filen avslutas med en "stängningsrad" med visst innehåll.
       
      Ut skall komma en TXT-fil med ASCII-tecken som sedan skall kunna skickas till banken.,
       
      Allt bygger på Sparbankernas SUS-format på betalfiler.
       
      Är det någon som vet om ovanstående går att göra, eller måste jag gå någon annan väg än Excel ? Köpa ett löneprogram är ingen utväg....
       
      Tacksam för svar.
       
      //Tom
    • Mhagstrom
      Köra nytt makro efter Print/ skapad PDF
      Av Mhagstrom
      Hej, 
       
      Har en Excelfil för finansiell rapportering som körs på ett stort antal enheter månatligen. I denna fil nyttjar vi ett makro som ställer skalan på diagrammen. När vi kört makrot skapar vi en pdf-rapport via Adobes-add in.
       
      När vi väl tagit fram en rapport och vill köra en ny rapport på en ny enhet (väljs från en drop-downlista) fungerar inte makrot att köra längre utan man måste stänga ner hela Excel och start upp på nytt igen för att makrot skall kunna köras.
       
      Har något ett svar på varför makrot slutar fungera och hur skulle man kunna åtgärda det? Samma sak sker om man nyttjar den vanliga print to PDF funktionen.
       

       
      Tacksam för svar. 
       
       
      Vänliga hälsningar
      Marcus   
       
        

  • Senaste som Tittar

    Inga registrerade medlemmar är inne på denna sida.

  • Senaste inlägg

  • Obesvarade ämnen

  • Nya ämnen

  • Aktuella jobb

    Alla lediga jobb

  • Senaste nyheter pc för alla

×
×
  • Skapa nytt...