Er zijn 5 reacties in dit onderwerp

[mariob]

Hallo.

Ik probeer om een scherm te maken als het letterbord van "Rad van Fortuin", met die optie dat ik onderaan het scherm knoppen met het alfabet zet. Met macro's wil ik de letters doen verschijnen. Wanneer ik een macro opneem en daarna laat spelen werkt dit, maar zodra ik de presentatie doe lopen en op de knop druk met de gekoppelde macro gebeurd er niks meer....

Wie kan me helpen?

[Avancada]

En mogen we de macro eens bekijken dan?
Soms zegt een foto meer dan 1000 woorden, in dit geval echter niet.  

[mariob]

Dit is de code voor de letter "S". Het woord dat hier moet worden gezocht is "spaghettisaus"... Zo zou ik voor iedere letter een macro moeten schrijven, en als de letter er niet in voorkomt zou er de tekst moeten verschijnen "oeps...verkeerd gegokt, je bent je beurt kwijt"

Denk je dat het mogelijk is?

Visual Basic Code:

Sub s()
'
' Macro recorded 16/08/2007 by baertm
'

	Activewindow.Selection.SlideRange.Shapes("Rectangle 35").Select
	Activewindow.Selection.SlideRange.Shapes("Rectangle 35").Select
	Activewindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1, Length:=0).Select
	With Activewindow.Selection.TextRange
		.Text = "s"
		With .Font
			.Name = "Arial"
			.Size = 18
			.Bold = msoFalse
			.Italic = msoFalse
			.Underline = msoFalse
			.Shadow = msoFalse
			.Emboss = msoFalse
			.BaselineOffset = 0
			.AutoRotateNumbers = msoFalse
			.Color.SchemeColor = ppForeground
		End With
	End With
	Activewindow.Selection.SlideRange.Shapes("Rectangle 44").Select
	Activewindow.Selection.SlideRange.Shapes("Rectangle 44").Select
	Activewindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1, Length:=0).Select
	With Activewindow.Selection.TextRange
		.Text = "s"
		With .Font
			.Name = "Arial"
			.Size = 18
			.Bold = msoFalse
			.Italic = msoFalse
			.Underline = msoFalse
			.Shadow = msoFalse
			.Emboss = msoFalse
			.BaselineOffset = 0
			.AutoRotateNumbers = msoFalse
			.Color.SchemeColor = ppForeground
		End With
	End With
	Activewindow.Selection.SlideRange.Shapes("Rectangle 47").Select
	Activewindow.Selection.SlideRange.Shapes("Rectangle 47").Select
	Activewindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1, Length:=0).Select
	With Activewindow.Selection.TextRange
		.Text = "s"
		With .Font
			.Name = "Arial"
			.Size = 18
			.Bold = msoFalse
			.Italic = msoFalse
			.Underline = msoFalse
			.Shadow = msoFalse
			.Emboss = msoFalse
			.BaselineOffset = 0
			.AutoRotateNumbers = msoFalse
			.Color.SchemeColor = ppForeground
		End With
	End With
	Activewindow.Selection.SlideRange.Shapes("Rectangle 35").Select
	Activewindow.Selection.SlideRange.Shapes.Range(Array("Rectangle 35", "Rectangle 44")).Select
	Activewindow.Selection.SlideRange.Shapes.Range(Array("Rectangle 35", "Rectangle 44", "Rectangle 47")).Select
	Activewindow.Selection.TextRange.Font.Color.SchemeColor = ppBackground
End Sub

[mod]Gelieve vb-tags te gebruiken voor vba-code[/mod]

[Avancada]

Ik vind het gek dat je zoiets in powerpoint maakt.
Vb.net of vb6 zijn hier toch beter voor.

Maar bon. Powerpoint dan,

Die knopjes met letters in. Zijn dat buttons uit de werkbalk 'werkset besturingselementen' of diegene die je standaard met ppt kan invoegen?

Met die knopjes van de besturingselementen lijkt het me alvast veel makkelijker.

[mariob]

Ik ben niet echt een programeerwonder... is jaren geleden dat ik VB nog gezien heb.

De knoppen zijn momenteel geen buttons, het zijn gewone tekstvelden, maar het resultaat is hetzelfde. Heb het met buttons ook geprobeerd.

Ken je misschien een ander programma waarmee ik zo iets kan maken?
Het is voor een spelavond voor andersvaliden en bejaarden. Ik heb nog een maandje om dat klaar te maken.

Groeten,
Mario

[Duffy]

Zou het ook niet beter zijn om deze code te verwerken zodat je die kan gebruiken voor elke letter?
Dit lijkt me toch serieus veel als je het hele alfabet wil gaan doen.