Drawings in Excel
Drawings in Excel
(OP)
Does anybody know how to create a drawing or sketch in Excel which is dynamically driven by values in the spreadsheet? In other words, if I have a spreadsheet which designs a certain component, is it possible to create a sketch of that component within excel where the dimensions of the component are changed in real time based upon what the user enters?
Thanks,
Chris
Thanks,
Chris





RE: Drawings in Excel
Now you want a spreadsheet to be a parametric CAD program.
Link your Excel spreadsheet with your CAD program. Its probably already been done by somebody.
RE: Drawings in Excel
RE: Drawings in Excel
Good Luck
johnwm
________________________________________________________
To get the best from these forums read FAQ731-376 before posting
UK steam enthusiasts: www.essexsteam.co.uk
RE: Drawings in Excel
RE: Drawings in Excel
RE: Drawings in Excel
I have done some small experiments with the X-Y scatter plot, and this seems like a good and simple solution. I'm assuming I can also place text and autoshapes on the chart, but I haven't figured this part out yet.
RE: Drawings in Excel
=$a$1
for example
RE: Drawings in Excel
here's a link to smartsketch that should work.
ppm.intergraph.com/smartsketch
RE: Drawings in Excel
http://www.structural-engineering.fsnet.co.uk/
and follow the links to "Spreadsheets". Download the application called "PlanSketch". This is a very clever spreadsheet which allows you to enter a table of column and beam locations and sizes, including floor penetrations etc, and produces a scaled drawing of the resulting floor layout. You might be able to examine the coding to see how it is done.
Hope this helps!
RE: Drawings in Excel
RE: Drawings in Excel
Line, Polyline, Rectangle, Curve, etc.
Here are some examples:
CODE
Dim triArray(1 To 4, 1 To 2) As Single
triArray(1, 1) = 25 'Assign values in code, Or
triArray(1, 2) = 100 'Read a table of values in the sheet
triArray(2, 1) = 100
triArray(2, 2) = 150
triArray(3, 1) = 150
triArray(3, 2) = 50
triArray(4, 1) = 25 ' Last point has same coordinates as first
triArray(4, 2) = 90 ' else not filled as a solid
Set myDocument = Worksheets(1)
myDocument.Shapes.AddPolyline triArray
Set myDocument = Worksheets(1)
With myDocument.Shapes.AddLine(10, 10, 250, 250).Line
.DashStyle = msoLineDashDotDot
.ForeColor.RGB = RGB(50, 0, 128)
End With
With myDocument.Shapes.AddShape(msoShapeRectangle, 144, 144, 72, 72)
.Name = "Red Square"
.Fill.ForeColor.RGB = RGB(255, 0, 0)
.Line.DashStyle = msoLineDashDot
End With
End Sub