Jobsintown.de is an internet-based service for job seekers and a major player in online recruitment. The challenge for its agency Scholz & Friends was to raise brand awareness among the target group while being restricted by a small media budget.
The agency decided to promote jobsintown.de as the best way of getting a new job when you just can’t take any more of your current one!
In order to do this, awful working conditions were evoked with a series of trompe l’oeil posters on the sides of ATMs, vending machines and photo booths. The pictures made it look as though real people were toiling away in the cramped innards of the machines. The images were designed to generate a ‘That’s exactly how I feel!’ response in the target group.
“Merokok dapat menyebabkan kanker, serangan jantung, impotensi, serta gangguan kehamilan dan janin”.
“Merokok dapat menyebabkan kanker, serangan jantung, impotensi, serta gangguan kehamilan dan janin”.
Sub Chart2PPT()
Dim objPPT As Object
Dim objPrs As Object
Dim objGraph As Object
Dim objDataSheet As Object
Dim rngData As Range
Dim intRow As Integer
Dim intCol As Integer
' excel chart data
Set rngData = Range("A1:B4")
' open powerpoint
Set objPPT = CreateObject("Powerpoint.application")
objPPT.Visible = True
' existing powerpoint pres
objPPT.presentations.Open ThisWorkbook.Path & "\21113.ppt"
' chart on slide 2
Set objPrs = objPPT.presentations(1).slides(2)
' pointer to graph
Set objGraph = objPrs.Shapes(2).OLEFormat.Object.Application
' pointer to graphs data sheet
Set objDataSheet = objGraph.Datasheet
' transfer data
For intRow = 1 To rngData.Rows.Count
For intCol = 1 To rngData.Columns.Count
objDataSheet.Cells(intRow, intCol) = rngData.Cells(intRow, intCol)
Next
Next
' update to keep changes
objGraph.Update
objGraph.Quit
objPPT.presentations(1).Save
objPPT.Quit
' tidy up objects
Set rngData = Nothing
Set objGraph = Nothing
Set objDataSheet = Nothing
Set objPrs = Nothing
Set objPPT = Nothing
End Sub
