Caption formatting
The captions in my thumbnail slideshow are adding unwanted white space below them, causing the page height to increase. Captions are all in the same place throught the site, and are placed below the pictures. There aren't any extra lines or spaces in the caption text box. I've reduced the footer to 0 with no content so I don't think this is a footer problem. I can't see a way to fix this. Anyone have any ideas?
Hi,
#1: Unwanted white space: it is perfectly ok to get rid of bottom padding if that is what you want
#2: Menu spacing variation: the fact that each item in the navigation menu is a separate text frame makes it susceptible to subtly different layouts across pages. The menu could have been created from a single text frame with hyperlinks (and link styles for roll-over effects). If it is too much effort to recreate the menu in this way, you can try another approach: group all the menu text frames together (Select All and Object > Group).
#3: text placement differences between layout/design and Publish: I'd have to look at specific examples (e.g., screenshots) before commenting.
(Also, it helps us if multiple unrelated issues are tracked in separate forum threads).
Thanks,
Abhishek
Similar Messages
-
RH 9.01 Table Captions Format Problem
I created WebHelp in RH 8 / TCS 2.5. The table captions are fine, Arial, Blue, Italic
I made a few minor updates to the table contents (not the caption) in FM 10 / TCS 3.0.
I open the project in RH9 / TCS 3.0 and regenerate.
The table caption is Times Roman black.
I cannot modify the table caption format to be anything else besides Times Roman black.
The RH files show the correct format.
Here's what I tried:
I tried manually inserting a table and formatting the caption.
I tried creating a CHM file instead of a WebHelp file. Same problem.
I tried with two different projects. Same problem.
I did not try creating a new project.
Am I missing something, or is this a bug?
Thanks for any clues.
I tried attaching screenshots here, but I must have some IE setting disabled because nothing happens when I click the camera.Welcome to our community
I'll begin by saying openly that I'm a big ole Frame ignoramous. I'm a RoboHelp guy.
I find that in order to specifically style my table captions I first need to edit the CSS file using Windows notepad. Pop the following code somewhere in the file:
Once you do this your Styles dialog will have a caption entry in the Other category that you may format.
Seems to work on my own setup. Hopefully it will work for you.
Cheers... Rick
Helpful and Handy Links
RoboHelp Wish Form/Bug Reporting Form
Begin learning RoboHelp HTML 7, 8 or 9 within the day!
Adobe Certified RoboHelp HTML Training
SorcerStone Blog
RoboHelp eBooks -
Source agent: FM 9.0p250, unstructured
Transformative agent: RH 8.0.2.208
OS: WinXP Pro V. 2002 SP3
CPU: Core2 Quad @ 2.4 GHz
RAM: 3.25 GB
Free Space: 12.6 GB
File Sys.: NTFS
Swap: D & E (system-managed)
Is anyone else experiencing problems with RH not correctly transforming FM figure and table titles? I can get most of my design to work, but I am having a problem with RH not following-through with some of my table title format and figure title format specifications.
I am having problems with RH not correctly applying, or inconsistently applying, figure title and table caption attributes ("Paragraph" settings) that I specify through Project Settings | Import | Edit | Conversion Settings.
For example (in FM Table Designer), I have a table title paragraph design, "TT.Table Title", in which I specify Title > Above Table, and specify a paragraph design (FM style) of Arial, 10pt, regular, bold, 0" indents, alignment left. It works fine direct to print or PDF; the same is true with figure titles.
In RH (through Project Settings | Import > Edit | Conversion Settings [FrameMaker Settings] > Paragraph), I specify that the FM style is to transform through an RH style that I define (through Edit Style button > Styles > Format > Paragraph). I set the alignment, etc., as is required through RH, but when I look at the Design view and/or generate the output (say...Webhelp), RH has not correctly interpreted one or more of my specification's attributes.
For example, in the case of my table titles, in Design view, RH has centered the title (or in RH terms, the ''Caption") above the table. Or sometimes the bold attribute is missing. In Project Manager, if I right-click and select View, the title/caption sometimes appears as specified; however, if I Generate the WebHelp (or HTML Help, or whatever), the bold formatting isn't there.
I thought that maybe RH defaulted figure and table titles to a Caption, as that is what it calls that part in the Design view. But when I set Caption to my specs, it made no difference.
Any thoughts?
Thanks in advance!Please don't post the same question in two categories as apart from being against the forum rules it results in messy answers. Some in one category and some in another.
Here's a link to the other thread for anyone able to help Burtin.
http://forums.adobe.com/thread/542860
The FM Integration category is for anything to do with issues that arise with FM to RH. FM has its own category for FM issues and there are various RH categories for content created in RH.
I am going to lock this thread so that answers end up in the right place.
See www.grainge.org for RoboHelp and Authoring tips
Follow me @petergrainge -
Source agent: FM 9.0p250, unstructured
Transformative agent: RH 8.0.2.208
OS: WinXP Pro V. 2002 SP3
CPU: Core2 Quad @ 2.4 GHz
RAM: 3.25 GB
Free Space: 12.6 GB
File Sys.: NTFS
Swap: D & E (system-managed)
Is anyone else experiencing problems with RH not correctly transforming FM figure and table titles? I can get most of my design to work, but I am having a problem with RH not following-through with some of my table title format and figure title format specifications.
I am having problems with RH not correctly applying, or inconsistently applying, figure title and table caption attributes ("Paragraph" settings) that I specify through Project Settings | Import | Edit | Conversion Settings.
For example (in FM Table Designer), I have a table title paragraph design, "TT.Table Title", in which I specify Title > Above Table, and specify a paragraph design (FM style) of Arial, 10pt, regular, bold, 0" indents, alignment left. It works fine direct to print or PDF; the same is true with figure titles.
In RH (through Project Settings | Import > Edit | Conversion Settings [FrameMaker Settings] > Paragraph), I specify that the FM style is to transform through an RH style that I define (through Edit Style button > Styles > Format > Paragraph). I set the alignment, etc., as is required through RH, but when I look at the Design view and/or generate the output (say...Webhelp), RH has not correctly interpreted one or more of my specification's attributes.
For example, in the case of my table titles, in Design view, RH has centered the title (or in RH terms, the ''Caption") above the table. Or sometimes the bold attribute is missing. In Project Manager, if I right-click and select View, the title/caption sometimes appears as specified; however, if I Generate the WebHelp (or HTML Help, or whatever), the bold formatting isn't there.
I thought that maybe RH defaulted figure and table titles to a Caption, as that is what it calls that part in the Design view. But when I set Caption to my specs, it made no difference.
Any thoughts?
Thanks in advance!I may be off at a tangent here as this is a wild guess.
HTML recognises Table Heading and Table Text, RH does not recognise the Table Heading selector. Maybe with your knowledge of FM's table caption and that tidbit of information, you can change something in your FM table to avoid the problem, if indeed there is a link.
See www.grainge.org for RoboHelp and Authoring tips
Follow me @petergrainge -
Premiere Pro CC Closed Captions format issues on render
I have added closed captions to my Premiere Pro project — took bloody ages — and all looks and runs great within the project. Simple white captions over the video.
Although, when I render the video out with the closed captions embedded within the video, cirtain captions seem to have slightly "dodgy" formatting when played back in quicktime player.
Some sections of the captions have a black backgroun on and some do not. As I previously mentioned the captions are all fine within the project. It just seems to happen on the render file… Has anyone any ideas why this could be?
Have attached a few screens of the issue I am finding…
http://d.pr/i/lVI2
http://d.pr/i/8iinWhen you make a change to the size of the QuickTime window, does the problem go away?
If the answer is "no", I'd try a few things:
-- Check to see if the frame rate of the closed captioning matches the frame rate of the source clip -- this is important
-- Export matching the exact framerate of the closed captioning and clip and see how this looks
-- Try exporting out to different frame rates and see if the problem still happens
-- See if this problem in playback happens with other external players
-- Update the QuickTime player and see if it still happens
-- Reimport the exported problem file into PPRO and see if the playback issue happen there
Then let me know what the results are. -
Premiere will not import any of the recommended Caption formats
I have so far used qt.txt files to add open captions to my video projects.
I would like to work with captions within Premiere Pro and have watched Adobe's video on how to do it.
Recommended formats are .scc but several others are supposedly supported.
I have tried to import .scc files and various flavors of xml files and adobe caption files.
None of them are recognized as valid formats in my application.
Do I need a plugin that is not installed? Or enable something or another? or why would I not be able to import the files?
Thank you on beforehand.
Gusggaarde2 wrote:
By the way I am using CS6
That would be the problem. Closed Captioning support was completely overhauled in CC 7.0. Previously, support for captions was very limited. The workflow was simply to select a sequence in the Project panel, go to Sequence>Closed Captioning>Attach. You could then enable display of the captions in the Program Monitor, but you could not edit the caption content or control timing in any way. -
How do I convert a MS Word doc into Closed Caption scc (or other) format?
I have already constructed a number of videos and we now want to add sub titles. I have the complete transcript on a word document.
I've seen all the videos on how to do it. But how do I get my content into Closed Caption formats so I can add them?
Any help would be appreciated.If you mean wanting to work with subtitle "Open Captions" , Premiere pro does not support subtitle Open Captions" right now.
If you are talking about adding "Closed Captions" -- you can add captions from scratch to your project using Premiere Pro. Go File-> New-> Captions and pick CEA-608, CEA-708, or Teletext, and off you go. Go here for more information:
Adobe Premiere Pro Help | Closed Captioning
If you have a lot of captions, I suggest you find a caption authoring solution from a 3rd party -- there are some free/ shareware ones out there. Look around the forums to see what other people are using to author closed captions.
Good luck! -
Is there a file where captions are stored? I would like to be able to either move them via copy/paste or at least print them out.
Reason: I am converting old slide carousels and editing in Elements before putting them in a slide show. While scanning etc I put the captions into the Organizer but there is no easy way to transfer those to Pro Show or any other slide show program. I therefore have to constantly go back and forth between Organizer and Slide Show.Hi,
I hope these notes will work for you, I am using ProShow Gold (PSG) version 4.52 and they seem to work there. I think we are talking about the same field but I use short captions.
In PSE, add the text to the Caption field by using your preferred method.I tend to enter it into the Properties - General screen but there are other ways.
Introduce the images to PSG - I tend to use drag and drop from PSE to PSG but you may have your own way.
In PSG, select the slides that you wish to display the caption on and then either click on the Slide Opt button on the toolbar or right click on a slide and select Slide Options.
Select the Captions tab.
Click on the Insert Macro link under Caption Format
From the dropdown list for Macro Types, select EXIF Metadata Macros
Select the first one (Image title). It is best not to select from the right hand column.
Now click on Add & Close button to add the caption as text
Position the text as required and then click on OK to close the options window.
The captions should now display as text. If, at a later stage, you decide to change the caption in PSE, then re-running PSG should pick up those changes providing you didn'tuse the fixed text from the right column as mentioned above.
I hope that the above does what you want - good luck
Brian -
Turn off Format Painter on Worksheet Activate
Hello there
I am trying to disable Format Painter on a specific sheet. The sheet is designed to test the user's skill in basic formatting in Excel, and I don't want him to be able to simply copy the formatting from the "example" cells to the "answer"
cells.
I managed to disable copy and paste, but it seems the Format Painter is still a potential loop-hole in my test.
I've Googled for about half an hour, and the only promising aswer I could find was this code:
Private Sub Worksheet_Activate()
Dim ctl As CommandBarControl
For Each ctl In Application.CommandBars("Standard").Controls
If ctl.Caption = "&Format Painter" Then
ctl.Enabled = False
End If
Next
End Sub
(Similar code is supposed to activate the Format Painter again on sheet Deactivation.)
I've tested the code and the ctl.Enabled = False line does trigger when it is supposed to, but somehow the Format Painter remains completely useable. Can someone please help?
Best regards,
Pieka
piekaYou can choose to lock the sheet or particular cells. You can download this
EXCEL API,and after add reference to project,using the following code.
Lock cell,
Dim workbook As New Spire.Xls.Workbook()
workbook.CreateEmptySheets(1)
Dim sheet As Spire.Xls.Worksheet = workbook.Worksheets(0)
sheet.Range("A1").Text = "Locked"
sheet.Range("B1").Text = "Unlocked"
sheet.Range("A1").Style.Locked = true
sheet.Range("B1").Style.Locked = false
sheet.Protect("123", SheetProtectionType.All)
workbook.SaveToFile("Sample_Lock.xlsx", ExcelVersion.Version2013) -
Vb code----Expected-end of statement----this is error coming when debugging.
'VERSION 5.00
'Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "Mscomm32.ocx"
Begin VB.Form FrmMain
BackColor = &H80000002
StartUpPosition = 3 'Windows Default
WindowState = 2 'Maximized
Begin VB.Timer Timer3
Interval = 1000
Left = 3720
Top = 10560
End
Begin VB.Timer Timer2
Interval = 1000
Left = 4200
Top = 10560
End
Begin MSCommLib.MSComm MSComm1
Left = 5160
Top = 10440
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = 0 'False
End
Begin VB.Timer Timer1
Interval = 1000
Left = 4680
Top = 10560
End
Begin VB.CommandButton Command2
Caption = "Range 28-44 mm."
BeginProperty Font
Name = "Trebuchet MS"
Size = 21.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 1335
Width = 3735
End
Begin VB.Frame FrameDia
Caption = "Value of Measuring"
BeginProperty Font
Name = "Trebuchet MS"
Strikethrough = 0 'False
EndProperty
Height = 3495
Width = 14295
Begin VB.Label lblDataOuter
Alignment = 2 'Center
BackColor = &H80000009
Caption = "1.002"
BeginProperty Font
Name = "Trebuchet MS"
Strikethrough = 0 'False
EndProperty
Height = 1785
Left = 4920
TabIndex = 8
Top = 840
Width = 6075
End
Begin VB.Label Label2
Caption = "mm."
BeginProperty Font
Name = "Trebuchet MS"
Size = 72
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 1785
Left = 10920
TabIndex = 7
Top = 840
Width = 3075
End
Begin VB.Label lblDia
BackColor = &H80000002
Caption = "Outer Diameter"
BeginProperty Font
Name = "Trebuchet MS"
Size = 36
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1815
Left = 600
TabIndex = 6
Top = 840
Width = 4095
End
End
Begin VB.Frame FrameHigh
BackColor = &H80000002
Caption = "Value of Measuring"
BeginProperty Font
Name = "Trebuchet MS"
Size = 24
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3495
Left = 480
TabIndex = 1
Top = 5040
Width = 14295
Begin VB.Label lblHigh
BackColor = &H80000002
Caption = "Length"
BeginProperty Font
Name = "Trebuchet MS"
Size = 36
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 975
Left = 720
TabIndex = 4
Top = 1200
Width = 2655
End
Begin VB.Label lblUnit
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H80000009
Caption = "mm."
BeginProperty Font
Name = "Trebuchet MS"
Size = 72
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 1785
Left = 10920
TabIndex = 3
Top = 840
Width = 3075
End
Begin VB.Label lblDataLength
Alignment = 2 'Center
BackColor = &H80000009
Caption = "30.001"
BeginProperty Font
Name = "Trebuchet MS"
Size = 72
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 1785
Left = 4800
TabIndex = 2
Top = 840
Width = 6195
End
End
Begin VB.CommandButton Command1
Caption = "Range 16-28 mm."
BeginProperty Font
Name = "Trebuchet MS"
Size = 21.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 1335
Left = 6240
TabIndex = 9
Top = 9600
Width = 3735
End
Begin VB.Image Img2844
Height = 900
Left = 11760
Picture = "HighCheck_01.frx":1CCA
Stretch = -1 'True
Top = 8640
Width = 900
End
Begin VB.Image img1628
Height = 900
Left = 7800
Picture = "HighCheck_01.frx":210C
Stretch = -1 'True
Top = 8640
Width = 900
End
Begin VB.Label lblDate
Alignment = 2 'Center
BackColor = &H80000002
Caption = "Date"
BeginProperty Font
Name = "Trebuchet MS"
Size = 26.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 480
TabIndex = 12
Top = 9240
Width = 3375
End
Begin VB.Label lblTime
Alignment = 2 'Center
BackColor = &H80000002
Caption = "Time"
BeginProperty Font
Name = "Trebuchet MS"
Size = 26.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 120
TabIndex = 11
Top = 9960
Width = 3975
End
Begin VB.Label lblMain
BackColor = &H80000002
Caption = "Dimension Measurement Machine"
BeginProperty Font
Name = "Comic Sans MS"
Size = 27.75
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000007
Height = 975
Left = 3360
TabIndex = 0
Top = 0
Width = 9135
End
End
Option Explicit
Public DataOuter As String, DataLength As String, RecData As String, Model As String
Private Sub Form_Load()
img1628.Visible = False
Img2844.Visible = False
End Sub
Private Sub Command1_Click()
MSComm1.Output = "@00WR0200000146*" & vbCr
Delay
End Sub
Private Sub Command2_Click()
Delay
End Sub
Private Sub Delay()
Dim a As Single
End Sub
Private Sub Image1_Click()
End Sub
Private Sub Timer1_Timer()
lblTime.Caption = Format(Now, "HH:MM:SS AmPm")
lblDate.Caption = Format(Now, "DD/MM/YY")
End Sub
Private Sub Timer2_Timer()
MSComm1.Output = "@00RD0040000654*" & vbCr
Delay
End If
End Sub
Private Sub Timer3_Timer()
If Model = "1" Then
img1628.Visible = True
Else
img1628.Visible = False
End If
If Model = "2" Then
Img2844.Visible = True
Else
Img2844.Visible = False
End If
End Sub'VERSION 5.00
'Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "Mscomm32.ocx"
Begin VB.Form FrmMain
Your code is not VB .Net. You may be able to find some assistance with your problem from the resources listed here:
VB6 and older -
Nonlinear least square fit problem
Hello,
I have been trying to fit the data given in the attached file. When you click command button1, the routine goes thru the NonLinearFitModelProcedure, calculates some points and gives an error message like "The return parameter in NonLinearFitCallback must be assigned a scalr value". I do not understand this error message. Any ideas? Thank you.
Cem
Option Explicit
Const numpoints = 49
Private Sub CWStat1_NonLinearFitModelProcedure(x As Variant, c As Variant, f As Variant)
' Enter the equation to fit in this callback.
' The fitter will attempt to find the best set of Coefficients that will fit the model result (f)
' to the expected result (y) generated by the GenerateData subroutine below.
' In this example, we fit the data to an exponential (f = a * exp(b*x) + c).
'f = Coefficients(0) * Exp(Coefficients(1) * x) + Coefficients(2)
If x <= c(1) Then
f = 0
ElseIf x >= c(1) And x <= (c(1) + c(2)) Then
f = 2 * (1# - Exp(-c(0) * (x - c(1))))
ElseIf x >= (c(1) + c(2)) And x <= (2# + c(2)) Then
f = 2 * Exp(-c(0) * x) * Exp(c(0) * c(1)) * (Exp(c(0) * c(2)) - 1#)
End If
Debug.Print x, f
End Sub
Private Sub Form_Load()
Open "fldwhite.txt" For Input As #1
End Sub
Private Sub Command1_Click()
'Compute the fit now.
ComputeFit
End Sub
Private Sub GenerateData(x As Variant, Y As Variant)
Dim i
Dim dum
Input #1, dum, dum
ReDim x(numpoints)
ReDim Y(numpoints)
i = 0
Do While Not EOF(1)
i = i + 1
Input #1, x(i), Y(i)
Loop
End Sub
Private Sub ComputeFit()
Dim x, Y, z, ynoisy, MSError, coef
' generate sample data
GenerateData x, Y
a0 = 0.02
b0 = 2
c0 = 2
' initial guess coefficients
coef = Array(a0, b0, c0)
' perform the fit
' The function returns the results within coef.
' The function also returns a gauge of the results as MSError.
' A higher value for this number implies a "worse" fit.
z = CWStat1.NonLinearFit(x, Y, coef, MSError)
' plot the results:
' Plot1 = Original data
' Plot2 = Original data plus noise
' Plot3 = Fitted curve
CWGraph1.PlotXvsY x, CWArray1.BuildArray(Array(Y, z))
' Display computed coefficints and Mean Squared Error
a1.Caption = Format(coef(0), "0.0##")
b1.Caption = Format(coef(1), "0.0##")
c1.Caption = Format(coef(2), "0.0##")
mse.Caption = Format(MSError, "0.00E+00")
End Sub
Attachments:
fldwhite.txt 1 KBHello Sam,
Thank you for the reply. The error number was something like 10024(?) I found out that my problem was to do with the function definition. The function limits were not set right. When I corrected it worked. But you are right that somehow I do not define the type correctly. See the routine below:
The xData and yData are defined as variant, likewise the yFit variable. The first two are populated in a for loop, therefore they are redimensioned prior to this. On the other hand the yFit variable is filled as an array by the NonLinearFit routine. This typing works for the fit routine, but it doesn't work for the plot routine where two differently typed variables, yData and yFit are used as arguments of the Array function. In order to make this to work I used CWDSP function for the XData, yData arrays which is an overkill. What is the reasonable solution for type casting these variables? Thank you.
Cem
Private Sub cmdFit_Click()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim NCoeff As Integer
Dim Coefficients
Dim mse
Dim yFit
Dim xData
Dim yData
Dim tArray() As Double
With sprResults
For j = 0 To 4
' xData = CWDSP1.Ramp(nPts(j), 0, 1)
' yData = CWDSP1.Ramp(nPts(j), 0, 1)
ReDim xData(0 To nPts(j) - 1)
ReDim yData(0 To nPts(j) - 1)
For i = 0 To nPts(j) - 1
xData(i) = CDbl(sTime(i))
yData(i) = CDbl(sData(i, j))
Next
fitType = j
NCoeff = 2
Coefficients = Array(CoefValues(0), CoefValues(1))
yFit = CWStat.NonLinearFit(xData, yData, Coefficients, mse, 25)
cwgPlot(j).PlotXvsY xData, CWArray.BuildArray(Array(yData, yFit))
Next
End With
End Sub -
Post-enforcement continue on failure clears
Hi.
I seem to be posting quite a lot in here...
Anyway, I have created a patch policy. In the policy I have a post-enforcement action. It's a bundle. When I tick the "Continue on Failure" tickbox and then publish the policy, the tickbox clears.
Is this correct behaviour?
ThanksThanks for the swift reply and the great ideas! In the interests of self-preservation, I went the "two click boxes" route but duplicated the initial slide to get the effect I needed:
Slide 1:
Small click box - on success: go to Slide 3. Infinite attempts. No failure caption.
Large click box - on success: go to Slide 2. Success caption, formatted to look exactly like a failure caption (e.g., "Try again!")
Slide 2
A duplicate of Slide 1, with some alterations.
Small click box - on success: go to Slide 3. Failure caption ("Try again!") at exactly the same spot & size, with same wording, as the success caption on Slide 1.
Deleted the large click box.
Animation_1 - moving green arrow pointing at the small click box.
Slide 3:
The "result" slide.
The advantages are that it's relatively fast to do it, since I'm duplicating the existing slide and then making some pretty quick changes to the duplicate. The disadvantages are that this is really only useful for my standard point-n-click slides, not my rollover slides or other types of interactions. Also, it's making the files bigger.
I have been testing the trial version of Infosemantics' Event Handler widget and it has some fascinating possibilities, especially using several of them on the same slide. If I can put together something more elegant, I'll post it! -
Vb code----Expected-end of statement
'VERSION 5.00
'Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "Mscomm32.ocx"
Begin VB.Form FrmMain
BackColor = &H80000002
StartUpPosition = 3 'Windows Default
WindowState = 2 'Maximized
Begin VB.Timer Timer3
Interval = 1000
Left = 3720
Top = 10560
End
Begin VB.Timer Timer2
Interval = 1000
Left = 4200
Top = 10560
End
Begin MSCommLib.MSComm MSComm1
Left = 5160
Top = 10440
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = 0 'False
End
Begin VB.Timer Timer1
Interval = 1000
Left = 4680
Top = 10560
End
Begin VB.CommandButton Command2
Caption = "Range 28-44 mm."
BeginProperty Font
Name = "Trebuchet MS"
Size = 21.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 1335
Width = 3735
End
Begin VB.Frame FrameDia
Caption = "Value of Measuring"
BeginProperty Font
Name = "Trebuchet MS"
Strikethrough = 0 'False
EndProperty
Height = 3495
Width = 14295
Begin VB.Label lblDataOuter
Alignment = 2 'Center
BackColor = &H80000009
Caption = "1.002"
BeginProperty Font
Name = "Trebuchet MS"
Strikethrough = 0 'False
EndProperty
Height = 1785
Left = 4920
TabIndex = 8
Top = 840
Width = 6075
End
Begin VB.Label Label2
Caption = "mm."
BeginProperty Font
Name = "Trebuchet MS"
Size = 72
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 1785
Left = 10920
TabIndex = 7
Top = 840
Width = 3075
End
Begin VB.Label lblDia
BackColor = &H80000002
Caption = "Outer Diameter"
BeginProperty Font
Name = "Trebuchet MS"
Size = 36
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1815
Left = 600
TabIndex = 6
Top = 840
Width = 4095
End
End
Begin VB.Frame FrameHigh
BackColor = &H80000002
Caption = "Value of Measuring"
BeginProperty Font
Name = "Trebuchet MS"
Size = 24
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3495
Left = 480
TabIndex = 1
Top = 5040
Width = 14295
Begin VB.Label lblHigh
BackColor = &H80000002
Caption = "Length"
BeginProperty Font
Name = "Trebuchet MS"
Size = 36
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 975
Left = 720
TabIndex = 4
Top = 1200
Width = 2655
End
Begin VB.Label lblUnit
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H80000009
Caption = "mm."
BeginProperty Font
Name = "Trebuchet MS"
Size = 72
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 1785
Left = 10920
TabIndex = 3
Top = 840
Width = 3075
End
Begin VB.Label lblDataLength
Alignment = 2 'Center
BackColor = &H80000009
Caption = "30.001"
BeginProperty Font
Name = "Trebuchet MS"
Size = 72
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 1785
Left = 4800
TabIndex = 2
Top = 840
Width = 6195
End
End
Begin VB.CommandButton Command1
Caption = "Range 16-28 mm."
BeginProperty Font
Name = "Trebuchet MS"
Size = 21.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 1335
Left = 6240
TabIndex = 9
Top = 9600
Width = 3735
End
Begin VB.Image Img2844
Height = 900
Left = 11760
Picture = "HighCheck_01.frx":1CCA
Stretch = -1 'True
Top = 8640
Width = 900
End
Begin VB.Image img1628
Height = 900
Left = 7800
Picture = "HighCheck_01.frx":210C
Stretch = -1 'True
Top = 8640
Width = 900
End
Begin VB.Label lblDate
Alignment = 2 'Center
BackColor = &H80000002
Caption = "Date"
BeginProperty Font
Name = "Trebuchet MS"
Size = 26.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 480
TabIndex = 12
Top = 9240
Width = 3375
End
Begin VB.Label lblTime
Alignment = 2 'Center
BackColor = &H80000002
Caption = "Time"
BeginProperty Font
Name = "Trebuchet MS"
Size = 26.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 120
TabIndex = 11
Top = 9960
Width = 3975
End
Begin VB.Label lblMain
BackColor = &H80000002
Caption = "Dimension Measurement Machine"
BeginProperty Font
Name = "Comic Sans MS"
Size = 27.75
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000007
Height = 975
Left = 3360
TabIndex = 0
Top = 0
Width = 9135
End
End
Option Explicit
Public DataOuter As String, DataLength As String, RecData As String, Model As String
Private Sub Form_Load()
img1628.Visible = False
Img2844.Visible = False
End Sub
Private Sub Command1_Click()
MSComm1.Output = "@00WR0200000146*" & vbCr
Delay
End Sub
Private Sub Command2_Click()
Delay
End Sub
Private Sub Delay()
Dim a As Single
End Sub
Private Sub Image1_Click()
End Sub
Private Sub Timer1_Timer()
lblTime.Caption = Format(Now, "HH:MM:SS AmPm")
lblDate.Caption = Format(Now, "DD/MM/YY")
End Sub
Private Sub Timer2_Timer()
MSComm1.Output = "@00RD0040000654*" & vbCr
Delay
End If
End Sub
Private Sub Timer3_Timer()
If Model = "1" Then
img1628.Visible = True
Else
img1628.Visible = False
End If
If Model = "2" Then
Img2844.Visible = True
Else
Img2844.Visible = False
End If
End SubHello,
VB 6 is no longer supported by Microsoft. I’d suggest asking in one of the following third-party forums which support Visual Basic 6.
VB forums
VB City
For further information, see:
Where to post your VB 6 questions
Karl
When you see answers and helpful posts, please click Vote As Helpful, Propose As Answer, and/or Mark As Answer.
My Blog: Unlock PowerShell
My Book: Windows PowerShell 2.0 Bible
My E-mail: -join ('6F6C646B61726C40686F746D61696C2E636F6D'-split'(?<=\G.{2})'|%{if($_){[char][int]"0x$_"}}) -
Is it possible to change the formatting of all text captions in a project?
Hi there.
I'm wanting to change the following formatting options on all text captions in my projects:
Caption type
Font
Font size
Font colour
Spacing
Is there any way of changing these for all text captions, or do I have to change them individually? I've tried changing the options in the object style manager, but I think that only works for when you're creating a new text caption, not for existing ones.
I'm using Captivate 7.
Thanks.It depends: are you using the default style for Text Captions? In that case you can change the default style in the Object Style Manager and have it applied to all Captions.
Or you can change one text caption, and in its Properties panel choose the option 'Save Changes to existing style' from the menu top right (see screenshot). Both methods will work if you didn't override the default Caption Style for those captions. Beware: Quizzing objects can use another style. -
How do you export a working closed caption for Premiere Pro CC 2014 in .mpg format?
We do weekly 1/2 hour programs that require closed captioning for air. I need to know how to export a self contained .mpg format without using MacCaption. If not possible, is there another, less expensive, 3rd party program that I can use? Or better yet, is Adobe going to create one for us?
Look for the wrench icon in the monitors, above the playback area, to the right. Tooltip for it is "Settings..." -- the menu item is in the flag menu there: Closed Captioning Display...
Maybe you are looking for
-
I've come to the conclusion that Apple is no better than Microsoft. There was a functional iTunes. I could sync music, playlists, etc; across my iPad and iPhone. I can't now. It now eats up storage on my devices with 'other data', and Apple is si
-
The New Safari Version 5.0 crashes with Mac OS 10.5.8
Hello This morning I was proposed to up-date safari 4.05 to safari5.0. I installed the new version and now it crashes when it starts. When I launched safari the first line with the menu appears but no window . When I call back any bookmark, the windo
-
ADVC110 &cable box& capturing television using iMac/Leopard using iMovie
I bought the ADVC110 really only to have the television signal come right into a program (eitheriMovie or Final Cut)NOT to capture from VCR. I hooked up the ADVC w/ the cable box and manage to see the TV in the screen,, but I can't hear the audio whi
-
EWM with QM -Inspection label not getting printed after usage decision
Hi Experts, We checked configuration settings related to this but we could not find missing configuration. Right now we are not able to print label after we take usage decision. Please let us know your inputs on this. We are using /SCWM/QINSP for usa
-
Friends I have a problem with a theme of scales, as they talked on this subject. I have clients to whom they sell "level of volume," but as we know it is not so standard, for example: I have a negotiation with 5 clients (who do not have any relation