A few problems (numbered) ALL POWERPOINT

  • Thread starter Thread starter Evil-Dog
  • Start date Start date
E

Evil-Dog

I have 5 problems if you have a solution please could you say the number of
the problem you are solving

1. How does one assign a keyboard button (numpad minus) to a function in VB
6.3 in PowerPoint 2003

2. Is it possible to save an add-in to a PowerPoint show so that you don't
have to install the add-in every time you use a different computer.

3. The computers at my college have this stupid thing that each time you
log-in you have to change all your settings in office because it rests all
the settings, is it possible to set it so the macro settings are set to low
by default?

4. what I'm trying to to is when i press a button (e.g. numpad minus) it
preforms a function subtract 1 from a number in a label

here is the working code for function i want to do

Private Sub down_Click()
If True Then
temp = Val(Ltemp.Caption)
temp = temp - 1
Ltemp.Caption = Val(temp)
End If
End Sub

(down is the name of the button on screen)

5. how do you divide and multiply in an calculator-like slide
the following is some of the code i use

first the dim tags
Dim sum As Double
Dim number As Double
Dim symbol As String
Dim sum2 As Double
Dim sumover as String

next the on load sub

Private Sub Form_Load()
cmdOperator.AddItem ("+")
cmdOperator.AddItem ("-")
cmdOperator.AddItem ("*")
cmdOperator.AddItem ("/")
If True Then
Label1.Caption = ("")
sum = 0
sum2 = 0
number = 0
symbol = ""
sumover = ""
End If
End Sub

and lastly the times sub (the divide is the similar)

Private Sub Times_Click()
If symbol = "" Then
sum = Val(Label1.Caption)
symbol = ("*")
Label1.Caption = ("")
End If
If symbol = "*" Then
sum2 = Val(Label1.Caption)
sum = sum * sum2
symbol = ("*")
Label1.Caption = ("")
End If
If symbol = "/" Then
sum2 = Val(Label1.Caption)
sum = sum / sum2
symbol = ("*")
Label1.Caption = ("")
End If
If symbol = "-" Then
sum2 = Val(Label1.Caption)
sum = sum - sum2
symbol = ("*")
Label1.Caption = ("")
End If
If symbol = "+" Then
sum2 = Val(Label1.Caption)
sum = sum + sum2
symbol = ("*")
Label1.Caption = ("")
End If
End Sub

the plus and minus works. But when i try to divide or multiply i get a
run-time error: 13
(the plus and minus subs are similar to the times and divide subs)
also how can i get decimal point to work?
 
Back
Top