Hej Jørgen,
Det jeg ønsker at via en VBS (VB script) - det er alm. VB kode - bare gemt i
en fil der ender på VBS.
Alternativt ville jeg have et excel ark.
I ark 1 skal der udfyldes nogle kriterier og være en knap der hedder "Lav
prisliste".
Ud fra dette bliver der - på ark2 - lavet en pris liste der løber en
database på en sql igennem og indsætter nogle billeder (billederne ligger
som fysiske filer) ud fra felterne i en DB.
Hilsen
Claus
"Jørgen Bondesen" <bondesen@cool.dk> skrev i en meddelelse
news:d6iapq$2n9t$1@newsbin.cybercity.dk...
>
> Jeg er ikke helt sikker på hvad det er du vil.
>
> Ønsker du fra en makro i Word, at genererer en Excelfil hvor der bliver
> placeret et billede i et ark eller hva?'
> Jeg ved hvad VB og VBA er men VBS der er jeg blank. S = Script?
>
> --
> Med venlig hilsen
> Jørgen Bondesen
>
>
> "Claus Nielsen" <clausn@hotmail.com> wrote in message
> news:428c6dde$0$271$edfadb0f@dread11.news.tele.dk...
>> Hej Jørgen,
>>
>> Jeg har siddet og kigget lidt på det - har du lidt inspiration der er
>> lidt nærmere et VBS script?
>>
>> Jeg har brugt din kode inde i en makro, men jeg ville gerne have oprette
>> dokumentet unden at skulle ind i excel først
>>
>>
>> / Claus
>>
>>
>> "Jørgen Bondesen" <bondesen@cool.dk> skrev i en meddelelse
>> news:d6dp6c$1dp$1@newsbin.cybercity.dk...
>>> Hej Claus.
>>>
>>> Her er lidt inspiration.
>>>
>>> Option Explicit
>>>
>>> 'FullPath to Picture
>>> Const PicturePath As String = "C:\test.bmp"
>>>
>>> 'Chose No or name ***
>>> Const WSHno As Long = 1
>>> 'Const WSHno As String = "JB test"
>>>
>>>
>>> '----------------------------------------------------------
>>> ' Procedure : PictureInsertOneCell
>>> ' Date : 10-10-2004
>>> ' Author : Joergen Bondesen
>>> ' Purpose : Insert 1 Picture in selected cell and ajust
>>> ' the position.
>>> '----------------------------------------------------------
>>> '
>>> Sub PictureInsertOneCell()
>>>
>>> Dim AWB As Workbook
>>> Set AWB = ActiveWorkbook
>>>
>>> Dim WSH As Worksheet
>>> Set WSH = AWB.Worksheets(WSHno)
>>>
>>> 'Clean UP
>>> WSH.Shapes.SelectAll
>>> Selection.Delete
>>>
>>> Dim rng As Range
>>> Set rng = WSH.Range(ActiveCell.Address)
>>>
>>> On Error Resume Next
>>> Dim HWH As Object
>>> Set HWH = WSH.Pictures.Insert(PicturePath)
>>> If Err <> 0 Then MsgBox "Picture is missing"
>>> On Error GoTo 0
>>>
>>> HWH.Top = rng.Top
>>> HWH.Left = rng.Left + rng.Width - HWH.ShapeRange.Width
>>>
>>> Set AWB = Nothing
>>> Set WSH = Nothing
>>> Set rng = Nothing
>>> Set HWH = Nothing
>>>
>>> End Sub
>>>
>>> --
>>> Med venlig hilsen
>>> Jørgen Bondesen
>>>
>>>
>>> "Claus Nielsen" <claus@xxxx.com> wrote in message
>>> news:428a66d8$0$50723$edfadb0f@dread14.news.tele.dk...
>>>> Hejsa,
>>>>
>>>> Jeg har lavet følg. og det virker meget godt - mit problem er at jeg
>>>> vil
>>>> have tilføjet et billede til filen - altså den skal ikke linke til
>>> filen,
>>>> men importere den ligesom hvis man indsætter billedet på normal vis.
>>>> Er der nogen derude der har en idé til hvor jeg skal hen?
>>>>
>>>> Hilsen
>>>> Claus
>>>>
>>>> Set objXL = wscript.createobject("Excel.application")
>>>> objXL.workbooks.add
>>>> ObjXL.visible = true
>>>>
>>>> objXL.Cells(1,1).Value = "Overskrift 1"
>>>> objXL.Cells(1,2).Value = "Overskrift 2"
>>>> objXL.Cells(1,3).Value = "Overskrift 3"
>>>> objXL.Cells(1,4).Value = "Overskrift 4"
>>>> objXL.Cells(1,5).Value = "Overskrift 5"
>>>> objXL.Cells(1,6).Value = "Overskrift 6"
>>>>
>>>> i = 1
>>>> j = 0
>>>>
>>>> For i = 2 to 15
>>>>
>>>> objXL.Cells(i,1).Value = "Tekst " & i
>>>> objXL.Cells(i,2).Value = "Tekst " & i
>>>> objXL.Cells(i,3).Value = "Tekst " & i
>>>> objXL.Cells(i,4).Value = "Tekst " & i
>>>> objXL.Cells(i,5).Value = "Tekst " & i
>>>> objXL.Cells(i,6).Value = "Tekst " & i
>>>>
>>>>
>>>> 'objXL.Cells(2,1).Insert =
>>>> LoadPicture("G:\Axapta\Ean13\5709000000000.bmp")
>>>>
>>>> Next
>>>>
>>>
>>>
>>> --
>>> I am using the free version of SPAMfighter for private users.
>>> It has removed 603 spam emails to date.
>>> Paying users do not have this message in their emails.
>>> Try
www.SPAMfighter.com for free now!
>>>
>>
>>
>
>