/ Forside / Teknologi / Administrative / MS-Office / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
MS-Office
#NavnPoint
sion 18709
refi 14474
Klaudi 9389
Rosco40 5695
berpox 5456
dk 5398
webnoob 4919
Benjamin... 4870
o.v.n. 4637
10  EXTERMINA.. 4373
Excel 97
Fra : Anders Kaas Petersen


Dato : 01-02-01 11:16


Er det muligt at indsætte grafik (firma-logo) i sidehovedet i Excel 97??

Mvh Anders




 
 
Lars Henrik Andersen (01-02-2001)
Kommentar
Fra : Lars Henrik Andersen


Dato : 01-02-01 13:13

On Thu, 1 Feb 2001 11:15:36 +0100, "Anders Kaas Petersen"
<akp@dematic.dk> wrote:

>
>Er det muligt at indsætte grafik (firma-logo) i sidehovedet i Excel 97??

Nedenstående VB rutine blev postet i dk.edb.regneark, men jeg har dog
ikke selv afprøvet det.

Sette inn bilder
Ved hjelp av makroene nedenfor kan du sette inn bilder i et angitt
område på
et regneark.

Sub TestInsertPicture()
InsertPicture "C:\FolderName\PictureFileName.gif", Range("D10"),
True,
True
InsertPictureInRange "C:\FolderName\PictureFileName.gif",
Range("B5:D10")
End Sub


Sub InsertPicture(PictureFileName As String, TargetCell As Range,
CenterH As
Boolean, CenterV As Boolean)
' setter inn et bilde plassert ved det øverste venstre hjørnet til
TargetCell
' bildet kan eventuelt sentreres horisontalt og/eller vertikalt
Dim p As Object, t As Double, l As Double, w As Double, h As Double
If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub
If Dir(PictureFileName) = "" Then Exit Sub
' import picture
Set p = ActiveSheet.Pictures.Insert(PictureFileName)
' determine positions
With TargetCell
t = .Top
l = .Left
If CenterH Then
w = .Offset(0, 1).Left - .Left
l = l + w / 2 - p.Width / 2
If l < 1 Then l = 1
End If
If CenterV Then
h = .Offset(1, 0).Top - .Top
t = t + h / 2 - p.Height / 2
If t < 1 Then t = 1
End If
End With
' position picture
With p
.Top = t
.Left = l
End With
Set p = Nothing
End Sub


Sub InsertPictureInRange(PictureFileName As String, TargetCells As
Range)
' setter inn et bilde fra en fil og endrer størrelsen slik at det
passer inn
i området TargetCells
Dim p As Object, t As Double, l As Double, w As Double, h As Double
If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub
If Dir(PictureFileName) = "" Then Exit Sub
' import picture
Set p = ActiveSheet.Pictures.Insert(PictureFileName)
' determine positions
With TargetCells
t = .Top
l = .Left
w = .Offset(0, .Columns.Count).Left - .Left
h = .Offset(.Rows.Count, 0).Top - .Top
End With
' position picture
With p
.Top = t
.Left = l
.Width = w
.Height = h
End With
Set p = Nothing
End Sub

Harald Staff (01-02-2001)
Kommentar
Fra : Harald Staff


Dato : 01-02-01 18:47

Anders

Du må konvertere logoen til en font.
(Primitivt, ok, men Excel er først og fremst et matematisk verktøy...)

Beste hilsen Harald

Anders Kaas Petersen <akp@dematic.dk> skrev i
news:ZJae6.22900$l57.974695@news000.worldonline.dk...
>
> Er det muligt at indsætte grafik (firma-logo) i sidehovedet i Excel 97??
>
> Mvh Anders
>
>
>



H P Wiehen (01-02-2001)
Kommentar
Fra : H P Wiehen


Dato : 01-02-01 19:05

"Anders Kaas Petersen" <akp@dematic.dk> skrev i meddelandet
news:ZJae6.22900$l57.974695@news000.worldonline.dk...
>
> Er det muligt at indsætte grafik (firma-logo) i sidehovedet i Excel 97??
>
> Mvh Anders
>
Jag har löst detta genom att använda Infoga/Bildobjekt/Från fil.... Jag får
då in logon som en bild i excelarket och kan flytta dit jag vill. Man får
sedan själv "byyga" ett sidhuvud med hjälsp av kantlinjer och annat som man
vill ha med. Om detta är rätt sätt vet jag inte, men det är ett sätt och
fungerar.
/hpw



Kathrin (01-02-2001)
Kommentar
Fra : Kathrin


Dato : 01-02-01 20:13

>>"Anders Kaas Petersen" <akp@dematic.dk> skrev i meddelandet
news:ZJae6.22900$l57.974695@news000.worldonline.dk...
>>
>> Er det muligt at indsætte grafik (firma-logo) i sidehovedet i Excel 97??
>>
> >Mvh Anders
>>
>Jag har löst detta genom att använda Infoga/Bildobjekt/Från fil.... Jag
får
>då in logon som en bild i excelarket och kan flytta dit jag vill. Man får
>sedan själv "byyga" ett sidhuvud med hjälsp av kantlinjer och annat som man
>vill ha med. Om detta är rätt sätt vet jag inte, men det är ett sätt och
>fungerar.
>/hpw

Ideen er god nok,sæt billede ind i de øverste rækker. Husk at gå ind i
Sideopsætning, Ark, Gentag rækker øverst og marker de rækker som logoet
sidder i. Så bliver de skrevet ud på alle sider.
Ulempen er at du så må reservere de øverste rækker i arket til dette formål.

--
Med venlig hilsen
Kathrin Christiansen



H P Wiehen (02-02-2001)
Kommentar
Fra : H P Wiehen


Dato : 02-02-01 08:49


"Kathrin" <plat6@get2net.dk> skrev i meddelandet
news:Oyie6.7735$zw.99086@twister.sunsite.dk...
> Ideen er god nok,sæt billede ind i de øverste rækker. Husk at gå ind i
> Sideopsætning, Ark, Gentag rækker øverst og marker de rækker som logoet
> sidder i. Så bliver de skrevet ud på alle sider.
> Ulempen er at du så må reservere de øverste rækker i arket til dette
formål.
>
> --
> Med venlig hilsen
> Kathrin Christiansen
>


Just det, - men det utgick jag ifrån att Anders kunde/visste
/hpw





Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408849
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste