That is exactly what I'm doing, minus the access connection part. When I simply define variables as strings and pas the text through it seems to come in fine, however when I use the data from access things seem to go haywire. The code for each item is identical, however different text boxes are getting date, i personally think this is really wierd.
I can't really upload a sample because it's for work. However here is how it works basically.
Set shp = CreateTpl(leftPos, topPos, Layout10up.cboValue1, Layout10up.cboProdSec1, _
cboDate1, Layout10up.cboRole1, Layout10up.cboLogo1, sldPpt)
The Function CreateTpl looks like
Function CreateTombstoneTpl(ByVal leftPos As Double, ByVal topPos As Double, _
cboValueText As Control, cboProdSecText As Control, cboDateText As Control, _
cboRoleText As Control, cboLogoText As Control, sldTmp As Slide) As Shape
Set shp = sldCurrent.Shapes.AddTextbox(msoTextOrientationHorizontal, leftPos - 0, _
topPos + 1, 108, 20)
With shp
.Name = "amt"
With .TextFrame
.VerticalAnchor = msoAnchorMiddle
.HorizontalAnchor = msoAnchorCenter
.MarginBottom = 2
.MarginTop = 2
With .TextRange
.ParagraphFormat.Alignment = ppAlignCenter
.Text = cboValueText.Text
With .Characters.Font
.Name = conFontNameArial
.Size = 8
.Bold = msoTrue
End With
End With
End With
End With
Thanks for your help.
Dan.
Edited 27-Jul-06 by geekgirlau. Reason: insert line breaks