-
Liknande Innehåll
-
Av hurvan
Hallå vänner!
Om jag har en .odt fil så ser jag första sidan på den där den ligger. Ikonen eller vad man kallar den. Alla Adobe PDF filer däremot visar bara loggan. Kan man byta ut den mot någon bild ur PDF dokumentet. Man hittar det man söker mycket snabbare om man ser bilder än om man måste läsa texten under "ikonen". Någon som vet om man kan göra så och i så fall hur?
-
Av Dennis_chnou
Hej,
Jag har använder denna kod: från http://excel-macro.tutorialhorizon.com/excel-vba-insert-multiple-images-from-a-folder-to-excel-cells/#pinglist-container
Sub AddOlEObject()
Dim mainWorkBook As Workbook
Set mainWorkBook = ActiveWorkbook
Sheets("Object").Activate
Folderpath = "C:\Users\Sumit Jain\Pictures"
Set fso = CreateObject("Scripting.FileSystemObject")
NoOfFiles = fso.GetFolder(Folderpath).Files.Count
Set listfiles = fso.GetFolder(Folderpath).Files
For Each fls In listfiles
strCompFilePath = Folderpath & "\" & Trim(fls.Name)
If strCompFilePath <> "" Then
If (InStr(1, strCompFilePath, "jpg", vbTextCompare) > 1 _
Or InStr(1, strCompFilePath, "jpeg", vbTextCompare) > 1 _
Or InStr(1, strCompFilePath, "png", vbTextCompare) > 1) Then
counter = counter + 1
Sheets("Object").Range("A" & counter).Value = fls.Name
Sheets("Object").Range("B" & counter).ColumnWidth = 25
Sheets("Object").Range("B" & counter).RowHeight = 100
Sheets("Object").Range("B" & counter).Activate
Call insert(strCompFilePath, counter)
Sheets("Object").Activate
End If
End If
Next
mainWorkBook.Save
End Sub
Function insert(PicPath, counter)
'MsgBox PicPath
With ActiveSheet.Pictures.insert(PicPath)
With .ShapeRange
.LockAspectRatio = msoTrue
.Width = 50
.Height = 70
End With
.Left = ActiveSheet.Range("B" & counter).Left
.Top = ActiveSheet.Range("B" & counter).Top
.Placement = 1
.PrintObject = True
End With
End Function
från hemsidan, excel-macro för att läsa in bilder ur en mapp och föra in dom till ett excel dokument. Koden läser in filer i vertikal-led, men jag önskar att få in bilderna, horisontellt.
Har försökt modifiera sista delen i koden (Function insert(PicPath, counter)) men får det inte att funka.
Kan någon duktig person se hur man löser detta?
Tack på förhand!!
Mvh,
Dennis Noubarpour
-
Av IngeGNilsson
Har en bärbar HP-dator med Windows 8. När man visar vanliga fotografier blir dessa utdragna och förvrängda på längden. Hur ändrar man det?
-
Av johangsson
Hej! jag har ett dator problem. För 2 dagar sedan så fick jag ingen bild på min skärm när jag startade upp den och jag trodde det var fel på mitt ruttna grafikkort eftersom skärmen är kopplad till grafikkortet via VGA. Köpte idag ett nytt grafikkort men får fortfarande ingen bild ifrån det men får bild från moderkortets uttag. Är det någon inställning på datorn som man ska se till att den kopplar grafikkortet först eller har jag kommit åt något innanför chassiet. Tacksam för svar!
-
-
Senaste som Tittar
Inga registrerade medlemmar är inne på denna sida.
-
Senaste inlägg
-
Obesvarade ämnen
-
Nya ämnen
-
Aktuella jobb
- Senior C#-utvecklare till Hjärt-LungfondenStockholm (Län)
- Frontend-utvecklare med fokus på React till Hjärt-LungfondenStockholm (Län)
- Riksbanken söker IT-säkerhetsarkitekt och SOC-ansvarigStockholm (Län)
- Riksbanken söker testmanager med inriktning mot cybersäkerhetStockholm (Län)
- Frontend DeveloperStockholm, Stockholm , Sweden
- Senior C#-utvecklare till Hjärt-Lungfonden