It has six vertices, nine edges, and five faces.Ī torus is a donut-shaped solid having a hole in between and forms a ring-like structure.Ī pentagonal prism is a prism having two pentagonal faces connected with their vertices. It has 12 faces, and all are like pentagons.Ī triangular Prism is a prism having two triangular faces whose vertices are connected by an edge forming a rectangular face. A regular polyhedron is a 3D shape having all faces of the same shape.Ī dodecagon is also called a regular polyhedron whose all faces are of the same shape. It has six edges, four faces, and four vertices, respectively.Ī square pyramid is a pyramid that has a square base, and the rest faces are like triangles together connected at a single vertice at the tip.Ī sphere is a Rounded Solid ball that does not contain any flat surface and edges and verticesĪ polyhedron is a solid and 3D shape that contains flat surfaces and straight edges. The cut surface looks like a circle, and the other portion is like a solid semicircle.Ī pyramid with all faces like a triangle is called a tetrahedron. Range("ChompCount").A hemisphere looks like a cut portion of the sphere. Range("ClickCount").Value = Range("ClickCount") + 1 Simple procedures to increase or clear the counts. If Range("person1hide" & x).Value = "Yes" ThenĪ(Array("person" & x)).Visible = msoFalse If xobj.Visible = False Then Range("ChompCount").Value = Range("ChompCount").Value + 1 If Range("person5hide").Value = "Yes" ThenĪ(Array("person5")).Visible = msoFalse If Range("person4hide").Value = "Yes" ThenĪ(Array("person4")).Visible = msoFalse If Range("person3hide").Value = "Yes" ThenĪ(Array("person3")).Visible = msoFalse You can play on Smartboards, Computers, Cellphones and Tablets. If Range("person2hide").Value = "Yes" ThenĪ(Array("person2")).Visible = msoFalse This product includes 34 interactive Boom Cards in Spanish about 3D Shapes (cube, cone, cylinder, rectangular prism, sphere, pyramid). If Range("person1hide").Value = "Yes" ThenĪ(Array("person1")).Visible = msoFalse Procedures UnHidePersons & HidePersonsX loop but procedure HidePersons doesn’t (various If…End If statements check named ranges to see if Dino is close enough to each person to eat them). Sub DinoGetLocation()ĭim Xpos As Double, Ypos As Double, Width As Double, Hpos As Double I could’ve used a loop but I ran out of energy and repeated the code for each different object. This reads the location of the objects and writes the positions (Left, Top, Height, Width) to column C. Sub DinoLookForward()ĪctiveSheet.Shapes("Dino1").Model3D.RotationX = 355ĪctiveSheet.Shapes("Dino1").Model3D.RotationY = 2.3ĪctiveSheet.Shapes("Dino1").Model3D.RotationZ = 360ĪctiveSheet.Shapes("Dino1").Model3D.RotationX = 8ĪctiveSheet.Shapes("Dino1").Model3D.RotationY = 53ĪctiveSheet.Shapes("Dino1").Model3D.RotationZ = 7ĪctiveSheet.Shapes("Dino1").Model3D.RotationX = 214ĪctiveSheet.Shapes("Dino1").Model3D.RotationY = 277ĪctiveSheet.Shapes("Dino1").Model3D.RotationZ = 146 This turns the dinosaur to face the direction it will move. Printed polymer structures have reversible, repeatable morphing without. VBA code in 5 different modulesĮasier to examine the code in the file but here’s the code: a_DinoMoves Sub RelocateTOPLEFT()ĪctiveSheet.Shapes("Dino1").IncrementLeft 15ĪctiveSheet.Shapes("Dino1").IncrementLeft -15ĪctiveSheet.Shapes("Dino1").IncrementTop -15ĪctiveSheet.Shapes("Dino1").IncrementTop 15 Multiple permanent shapes are encoded in shape memory polymer structures. This file works based on the interaction between vba code and formulas. I figure out what I want to do and if I can’t write the code I google it and modify it. I tinker with VBA (I’m not a professional programmer). It’s too large to include here but I explain how to rebuild it below. figure out how to eat people (hints at bottom of post).click green arrows to move the dinosaur.if dinosaur isn’t animated click it’s play button. click ‘Start’ button (repositions objects and resets stats).Odd that the dinosaur is smaller than the people but you can resize them. I added VBA so the dinosaur can move around and eat people! It’s silly but I learned/relearned a ton of VBA. Once inserted you’ll notice it’s animated and you’ll see various options. select Stock 3D models (select an ‘animated’ one!).(older versions don’t have this feature). I agree completely…not practical but definitely fun to play with. Unless you are an engineer, I am not sure how 3D Models has a business use. They have few practical uses but are fun to play with. I’ve had fun combing a 3D model with VBA (it moves inside your spreadsheet!) 3D Objects
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |