Auteur Topic: Afbeelding van National Geografic in Excel (gelezen 7113 keer)

bobey · « **Gepost op:** 19 augustus 2007, 20:28:14 »

Hoi iedereen,

Ik hoop dat dit de goede plaats is om de post te doen. En ja, ik zit weer met een "probleem"

. Ik ben bezig aan een soort van excel document, waarin gewoon enkele kolommen en rijen zijn gemaakt om daar een weekplanner van te maken. De bedoeling is dat deze dus elke week kan worden afgedrukt en dan zo worden ingevuld. Om deze een beetje op te vrolijken wil ik dat zo elke keer ik die afdruk, een ander foto te zien is, ik heb al gevonden dat op de site van National Geographic hun foto elke dag veranderd, maar kan ik dit in excel maken, dat ik, elke week ik de excel wil afprinten, die andere foto zie.

National Geographic site

Met vriendelijke groeten

Bobey

RedHead · « **Reactie #1 Gepost op:** 24 augustus 2007, 19:29:20 »

Bobey. het is helaas niet mogelijk om - met de standaard functionaliteiten van Excel - een achtergrond af te drukken. Je kan via Format (Opmaak), Sheet (Werkblad), Background (achtergrond) een plaatje opgeven dat je 'achter' je cellen 'geprojecteerd' wilt zien. Helaas komt deze achtergrond dus niet op je afdruk...

Of is het soms de bedoeling om 'gewoon een plaatje' te plaatsen in je planner? Dáár zijn vast wel dingen op te verzinnen...

Groet, Leo

P.s. ik weet dat eea met achtergrond wél mogelijk is via VBA en dat het te vinden is op internet... Maar waar???

bobey · « **Reactie #2 Gepost op:** 24 augustus 2007, 19:39:02 »

als het plaatje er gewoon in staat ergens is het goed, moet niet als achtergrond, ergens is ook heel goed. Kmoet alleen, en hoop dat jij kan helpen, iets vinden waardoor dat de picture van de dag van national geographic wordt, en dat die mee verandert zonder dat ik moet invoegen ofzo.

Vriendelijke groetjes
Bobey

dimy · « **Reactie #3 Gepost op:** 25 augustus 2007, 09:33:56 »

Beste,
Misschien vind je op deze site wat je zoekt
https://cpap.com.br/orlando/ExcelWatermarkMore.asp?IdC=OrlMoreWin

Groeten
Dimy

bobey · « **Reactie #4 Gepost op:** 25 augustus 2007, 10:10:21 »

Beste,

Het is eigenlijk niet de bedoeling van een watermerk te hebben daar. (mijn excuses als dit verkeerd is overgekomen in vorige posts) De bedoeling is dat het exceldocument automatisch een andere afbeelding van het internet haalt.

Met vriendelijke groeten
bobey

SoftAid · « **Reactie #5 Gepost op:** 25 augustus 2007, 13:09:19 »

Hallo Bobey,

Het is natuurlijk perfect mogelijk om een foto die op het internet staat in je excel werkblad te importeren.

Het probleem is dat de foto die dagelijks op National Geographics verschijnt, telkens een totaal andere naan heeft. Je kan niet voorzien wat die namen gaan zijn in de toekomst, dus kan je het adres ook niet opgeven.

Ik vrees dan ook dat je vraag niet te realizeren is

SoftAid

bobey · « **Reactie #6 Gepost op:** 25 augustus 2007, 13:15:22 »

Hoi Softaid,

Dank je!

Weet jij soms andere sites waarbij dit wel het geval is?

Met vriendelijke groeten

Bobey

SoftAid · « **Reactie #7 Gepost op:** 25 augustus 2007, 13:41:37 »

Hallo Bobey,

iedereen die een site heeft, heeft ook een archief om zijn foto's in op te slaan, een map op HDD.

In een map kan je geen 2 bestanden met dezelfde naam opslaan, dus zullen de namen altijd veranderen.

Veronderstel dat je een site vindt met namen van foto-bestanden zoals 1.jpg, 2.jpg, 3.jpg enzovoort, dan zou je via een macro in Excel elke 24 uur een ander bestand kunnen inladen, telkens je het werkblad opent.

De macro moet dan kijken naar de huidige datum, deze ergens noteren, en bij het openen van het werkblad moet de macro de huidige datum vergelijken met de genoteerde datum. Is deze nieuwe datum jonger dan de genoteerde, dan wordt een variabele x verhoogd met 1, en wordt deze variabele in een adres ingevoegd waar de foto moet gehaald worden:

ActiveSheet.Pictures.Insert("https://users.skynet.be/" & x & ".jpg").Select

Maar een dergelijk site vinden zal niet gemakkelijk zijn, mogelijk dat je beter zelf een aantal foto's Upload naar je eigen webruimte (die heeft iedereen) en bij deze de namen aanpast naar 1.jpg, 2.jpg, 3.jpg ...

Die macro, daar kunnen de Excel specialisten hier je gemakkelijk mee helpen.

SoftAid

bobey · « **Reactie #8 Gepost op:** 25 augustus 2007, 13:48:29 »

Hoi Softaid,

idd, dat dacht ik ook, maar ik hoopte dat er ergens een site was die telkens een foto onder diezelfde naam liet verschijnen. Maar goed,

Voor de excel specialisten: Hoe zou deze code er moeten uitzien als ik een foto wil laten toevoegen, zodra het bestand wordt geopend?
En nog eventjes bijkomende vraag, want daar zie ik mezelf ook nog in de fout gaan, hoe kan ik de dag, de maand en het jaar (van vandaag dus) omzetten naar een variabele in tekst vorm?

Vele groetjes
Bobey

RedHead · « **Reactie #9 Gepost op:** 26 augustus 2007, 18:49:15 »

Bobey, ik ben mijn idee aan't uitwerken mbt het tonen van een plaatje in je bestand... Nog ff geduld hiervoor.

Maareh... wat bedoel je met...

Citaat

hoe kan ik de dag, de maand en het jaar (van vandaag dus) omzetten naar een variabele in tekst vorm

...? Bedoel je hiermee 'zesentwintig augustus tweeduizend en zeven'? Of moet dit gewoon 26/08/2007 zijn, zonder dat je er mee verder kan rekenen (dus op de 'achtergrond' staat er geen getal meer (in dit voorbeeld 39322)? Het 1e is wat lastig (maar kan wel), het 2e is géén probleem!

Groet, Leo

bobey · « **Reactie #10 Gepost op:** 26 augustus 2007, 20:56:52 »

Hoi RedHead!

Awel, dat zou dus moeten dienen als ik met vba zou werken (macro's). Ik zou dan de code hetvolgende moeten laten doen. De datum van vandaag ophalen, en dan de datum opsplitsen en in zo tekstvorm steken. Hierbij bedoel ik: maandag 2 september 2007 wordt:

variabele dag = 02
variabele maand = 09
variabele jaar = 07

Dit zou ik dan gebruiken om via de code van SoftAid het bestand van national geograpic op te halen, want daar wordt het bestand zo genoemd (voorbeeld van vorige datum: 020907.jpg)

Snap je, of ben ik nog onduidelijk?

Groetjes
Bobey

RedHead · « **Reactie #11 Gepost op:** 26 augustus 2007, 22:13:21 »

Bobey, het verkrijgen van de gewenste 'datum-string' is niet zo moeilijk...

Code: [Selecteer]

Sub DatumAlsTekst()
Dim dDatum As Date
Dim sTekstDatum As String

    dDatum = Date

    sTekstDatum = Format(Day(dDatum), "00") & Format(Month(dDatum), "00") & Right(Year(dDatum), 2)

    MsgBox "De bestandsnaam wordt: " & sTekstDatum & ".jpg"

End Sub

(die laatste messagebox is ff voor de test om te tonen wat het resultaat wordt)

De coderegel die SoftAid gaf, gebruikte ik (uiteraard

) óók. Het binnenhalen van een plaatje van internet lukt daar - tot mijn stomme verbazing - inderdaad ook mee! En dat was iets dat ik toch niet wist!

Nou heb ik ff op de door jou opgegeven site gekeken, en zag daar 'de foto van de dag'. Maarrrr.... de naam van die foto is NIET de datum-van-de-dag.... (maar iedere dag iets anders!).
Kan jij aangeven waar je de bestandsnaam als datum + jpg hebt gezien?

Groet, Leo

SoftAid · « **Reactie #12 Gepost op:** 26 augustus 2007, 22:21:31 »

Citaat van: bobey op 26 augustus 2007, 20:56:52

Dit zou ik dan gebruiken om via de code van SoftAid het bestand van national geograpic op te halen, want daar wordt het bestand zo genoemd (voorbeeld van vorige datum: 020907.jpg)

Citaat van: RedHead op 26 augustus 2007, 22:13:21

Kan jij aangeven waar je de bestandsnaam als datum + jpg hebt gezien?

Dat zou mij sterk verwonderen

. Ook ik heb enkel een gewone bestandsnaam gezien, eentje die er aan gegeven is om de foto gemakkelijker te identifiëren.

Het is zeker geen vast gegeven, en dat heb je nodig voor jou plan....

SoftAid

bobey · « **Reactie #13 Gepost op:** 27 augustus 2007, 08:50:09 »

nee, idd, jullie hebben volledig gelijk.

Ik verwarde dit met een andere site
https://images.ucomics.com/comics/ga/2007/ga070827.gif

Dus, om goed te zijn moet ik om die foto's van national geograpic te gebruiken, er een 50 tal op mijn eigen webruimte (of harde schijf) plaatsen, en dan hernoemen?

Ofwel zo een site gebruiken als hierboven, waar het wel mooi per dag is afgebeeld

Bedankt!

Groetjes

RedHead · « **Reactie #14 Gepost op:** 27 augustus 2007, 10:04:29 »

Bobey, Yep! DAT is óók de methode die ik aan't uitwerken ben... Vanavond hoop ik thuis mee door te kunnen gaan.

Groet, Leo

Help!

Menu

Hulp bij posten

Zoeken

Recente topics